probleme macro erreur 6

[damien]

bonjour,
j'ai un probleme ma macro agremente jusqu'a la ligne 255 et ensuite il me renvoi une erreur 6



Private Sub CommandButton3_Click()
Range('e13').Select
Selection.ClearContents
Range('f14').Select
Selection.ClearContents

Dim strTitle, strInformation As String
If Label10 = '' Then
MsgBox ('veuillez saisir la date!')
Exit Sub

End If


Dim xlig As Byte

xlig = Range('a65536').End(xlUp).Row + 1

Cells(xlig, 4) = Label5 'port
Cells(xlig, 5) = Label2 'immat
Cells(xlig, 6) = Label3 'nom
Cells(xlig, 7) = Label8 'pavillon
Cells(xlig, 9) = ComboBox1 'moyen
Cells(xlig, 10) = TextBox1 & ComboBox3 & ' ' & TextBox2 & ComboBox2 'position
Cells(xlig, 11) = ComboBox4 'zone ciem
Cells(xlig, 1) = Label10 'date
Cells(xlig, 12) = ComboBox5 & ' ' & TextBox4 'suite
Cells(xlig, 13) = ComboBox6 'plan
Cells(xlig, 3) = ComboBox7 'controle
Cells(xlig, 14) = ComboBox8 'infraction
Cells(xlig, 2) = TextBox3 'heure
Cells(xlig, 15) = IIf(CheckBox1, 'DEROUTEMENT', 'NON') 'DEROUTEMENT
Cells(xlig, 16) = TextBox5 'commentaires
Cells(xlig, 8) = Label25 ' LHT
UserForm3.Hide

UserForm1.Hide
Unload Me
End Sub

merci

 

[dam]

merci jmps bcp