Private Sub CommandButton1_Click()
If Not IsDate(CDate(TextBox1)) Then
MsgBox "Format incorrect"
TextBox1 = ""
Exit Sub
Else
MsgBox "Format correct"
'...la suite de la procédure
End If
Li = Range("A65536").End(xlUp).Row 'Li correspond à la dernière cellule de la colonne "A"
Li = Li + 1 'J'incrémente celle-ci afin de passer sur la cellule vide du dessous
Cells(Li, 1).Activate 'Active la cellule vide de la colonne 1
'ActiveSheet.Paste
Cells(Li, 1) = CDate(TextBox1) 'Copie les données entrées dans cette même cellule
AjoutMachineSSVdateMES2.Show
Unload Me 'Unload ferme l'UserForm
'Le nom de l'UserForm a été remplacé par Me (puisque ce code est placé dans l'UserForm à fermer)
End Sub