Private Sub CommandButton1_Click()
'Déclaration variable
Dim ligne
'--- Positionnement dans la base
ligne = Sheets("DONNEES").[A65000].End(xlUp).Row + 1
'--- Transfert Formulaire dans BD
Sheets("DONNEES").Cells(ligne, 1) = UserForm1.TextBox1.Value ' client
Sheets("DONNEES").Cells(ligne, 2) = UserForm1.TextBox8.Value ' matricule
Sheets("DONNEES").Cells(ligne, 3) = UserForm1.TextBox2.Value ' n°ticket caisse
' etc.
' Sheets("DONNEES").Cells(ligne, 4) = UserForm1.TextBox...................
' Sheets("DONNEES").Cells(ligne, 5) = UserForm1.TextBox...................
End Sub