Format date fonctionne plus

Private Sub CommandButton2_Click()
Dim ladate As Integer
Dim col As Integer
Dim ligne As Integer
Dim format As Integer

On Error GoTo erreur

Sheets(ComboBox3.Value).Select

'If ladate <> 0 Then ladate = vDate(TextBox3.Value)
ladate = CDate(Me.TextBox3)
'ladate = cdate(TextBox3;"dd.mm.yy")
col = Rows(2).Find(ladate, , , , xlByRows, xlPrevious).Column
ligne = Columns(col).Find("*", , , , xlByRows, xlPrevious).Row + 1
Cells(ligne, col) = ComboBox4.Value
Cells(ligne + 1, col) = TextBox4.Value
Cells(ligne + 2, col) = TextBox5.Value
Exit Sub
erreur:
MsgBox "Date non valide"


End Sub