Private Sub UserForm_Initialize()
TextBox3 = Now
End Sub
Private Sub CommandButton1_Click()
Dim Derligne As Long
Derligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Derligne) = TextBox1
TextBox1 = ""
Range("B" & Derligne) = TextBox2
TextBox2 = ""
Range("C" & Derligne) = TextBox3
' Application.Dialogs(xlDialogSaveAs).Show
' J'ai désactivé cette ligne pour tester le reste du code
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub