Private Sub CommandButton1_Click()
NbreLigne = 1 + [Tableau3].ListObject.ListRows.Count
With UserForm1
[Tableau3].Item(NbreLigne, 1) = .NoClient
[Tableau3].Item(NbreLigne, 2) = .TextBox1.Value
[Tableau3].Item(NbreLigne, 3) = .TextBox2.Value
[Tableau3].Item(NbreLigne, 4) = .TextBox3.Value
[Tableau3].Item(NbreLigne, 5) = .TextBox4.Value
[Tableau3].Item(NbreLigne, 6) = .TextBox5.Value
[Tableau3].Item(NbreLigne, 7) = .TextBox6.Value
[Tableau3].Item(NbreLigne, 8) = .TextBox7.Value
[Tableau3].Item(NbreLigne, 9) = .TextBox9.Value
[Tableau3].Item(NbreLigne, 10) = .TextBox10.Value
End With
Unload UserForm1
End Sub