Problème VBA Excel !!!?

Bonjour,

dites moi ce qui ne va pas avec ce code VBA Excel :
---------------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
If IsDate(Me.Textdate) Then
Range("a1").NumberFormat = "dd/mmm/yyyy"
Range("a1").Value = CDate(Me.Textdate)
InsMot = Worksheets("Sorties").Range("a65536").End(xlUp).Row + 1
Worksheets("Sorties").Range("a" & InsMot).Value = Sorties.Textdate.Value


InsMot = Worksheets("Sorties").Range("b65536").End(xlUp).Row + 1
Worksheets("Sorties").Range("b" & InsMot).Value = Sorties.ComboEtp.Value


InsMot = Worksheets("sorties").Range("c65536").End(xlUp).Row + 1
Worksheets("sorties").Range("c" & InsMot).Value = Sorties.TextBox2.Value
If TextBox2.Value = blaks Then Worksheets("sorties").Range("c" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("d65536").End(xlUp).Row + 1
Worksheets("sorties").Range("d" & InsMot).Value = Sorties.TextBox11.Value
If TextBox11.Value = blaks Then Worksheets("sorties").Range("d" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("e65536").End(xlUp).Row + 1
Worksheets("sorties").Range("e" & InsMot).Value = Sorties.TextBox20.Value
If TextBox20.Value = blaks Then Worksheets("sorties").Range("e" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("f65536").End(xlUp).Row + 1
Worksheets("sorties").Range("f" & InsMot).Value = Sorties.TextBox29.Value
If TextBox29.Value = blaks Then Worksheets("sorties").Range("f" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("g65536").End(xlUp).Row + 1
Worksheets("sorties").Range("g" & InsMot).Value = Sorties.TextBox3.Value
If TextBox3.Value = blaks Then Worksheets("sorties").Range("g" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("h65536").End(xlUp).Row + 1
Worksheets("sorties").Range("h" & InsMot).Value = Sorties.TextBox12.Value
If TextBox12.Value = blaks Then Worksheets("sorties").Range("h" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("i65536").End(xlUp).Row + 1
Worksheets("sorties").Range("i" & InsMot).Value = Sorties.TextBox21.Value
If TextBox21.Value = blaks Then Worksheets("sorties").Range("i" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("j65536").End(xlUp).Row + 1
Worksheets("sorties").Range("j" & InsMot).Value = Sorties.TextBox30.Value
If TextBox30.Value = blaks Then Worksheets("sorties").Range("j" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("k65536").End(xlUp).Row + 1
Worksheets("sorties").Range("k" & InsMot).Value = Sorties.TextBox4.Value
If TextBox4.Value = blaks Then Worksheets("sorties").Range("k" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("l65536").End(xlUp).Row + 1
Worksheets("sorties").Range("l" & InsMot).Value = Sorties.TextBox13.Value
If TextBox13.Value = blaks Then Worksheets("sorties").Range("l" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("m65536").End(xlUp).Row + 1
Worksheets("sorties").Range("m" & InsMot).Value = Sorties.TextBox22.Value
If TextBox22.Value = blaks Then Worksheets("sorties").Range("m" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("n65536").End(xlUp).Row + 1
Worksheets("sorties").Range("n" & InsMot).Value = Sorties.TextBox31.Value
If TextBox31.Value = blaks Then Worksheets("sorties").Range("n" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("o65536").End(xlUp).Row + 1
Worksheets("sorties").Range("o" & InsMot).Value = Sorties.TextBox5.Value
If TextBox5.Value = blaks Then Worksheets("sorties").Range("o" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("p65536").End(xlUp).Row + 1
Worksheets("sorties").Range("p" & InsMot).Value = Sorties.TextBox14.Value
If TextBox14.Value = blaks Then Worksheets("sorties").Range("p" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("q65536").End(xlUp).Row + 1
Worksheets("sorties").Range("q" & InsMot).Value = Sorties.TextBox23.Value
If TextBox23.Value = blaks Then Worksheets("sorties").Range("q" & InsMot).Value = 0

InsMot = Worksheets("sorties").Range("r65536").End(xlUp).Row + 1
Worksheets("sorties").Range("r" & InsMot).Value = Sorties.TextBox32.Value
If TextBox32.Value = blaks Then Worksheets("sorties").Range("r" & InsMot).Value = 0


Else
MsgBox "Date Invalide"
End If

Unload Me
Sorties.Show

End Sub


Private Sub CommandButton3_Click()
Ncpt.Show
End Sub
---------------------------------------------------------------------------------------------------------------------------

toutes les colonnes à partir de C sont remplie correctement, le problème se pose avec les deux premières A et B auquelles sont affectées les valeures de "textdate" et "comboetp", les valeures saisies dans "textdate" et celles choisies dans "comboetp" ne figurent pas dans les cellules des collonnes A et B

dites moi ce que je dois faire, où est l'erreur ???

Remarque ; je suis un débutant dans le monde VBA Excel