Private Sub CommandButton1_Click()
Dim dest As Range
Set dest = Sheets("Entrée").Cells(Application.Rows.Count, 3).End(xlUp).Offset(1, 0)
If IsDate(Me.TextBox2) Then
dest.Offset(0, 1) = CDate(TextBox2)
Else
MsgBox "La date saisie n'est pas dans un format " & _
"Reconnu par Excel."
Me.TextBox2.SetFocus
Me.TextBox2.SelStart = 0
Me.TextBox2.SelLength = Len(Me.TextBox2)
Exit Sub
End If
If IsDate(Me.TextBox3) Then
dest.Offset(0, 1) = CDate(TextBox3)
Else
MsgBox "La date saisie n'est pas dans un format " & _
"Reconnu par Excel."
Me.TextBox3.SetFocus
Me.TextBox3.SelStart = 0
Me.TextBox3.SelLength = Len(Me.TextBox3)
Exit Sub
End If
dest.Offset(0, 2).Value = Me.Articles.Value
dest.Offset(0, 3).Value = Me.TextBox4.Value
dest.Offset = CDate(TextBox2)
dest.Offset(0, 1) = CDate(TextBox3)
Unload UserForm1
End Sub