Private Sub CommandButton1_Click()
Dim dest As Range
Set dest = Sheets("Entrée").Cells(Application.Rows.Count, 3).End(xlUp).Offset(1, 0)
dest.Value = Me.TextBox2.Value
dest.Offset(0, 1).Value = Me.TextBox3.Value
dest.Offset(0, 2).Value = Me.Articles.Value
dest.Offset(0, 3).Value = Me.TextBox4.Value
Unload UserForm1
End Sub