Private Sub Ajouter_Click()
Dim I As Integer
If UserForm1.TextBoxNom = "" Or UserForm1.TextBoxDate = "" Then
MsgBox "Merci de remplir tous les champs", vbExclamation, "Attention"
Else
I = 1
Do While Cells(I, 1) <> ""
Cells(I, 1).Offset(1, 0).Select
I = I + 1
Loop
ActiveCell.Value = UserForm1.TextBoxNom.Value
ActiveCell.Offset(0, 1).Value = UserForm1.TextBoxDate.Value
End If
End Sub