Private Sub CommandButton1_Click()
Dim DerLig As Long
DerLig = Worksheets("Feuil1").Range("I" & Rows.Count).End(xlUp).Row + 1
Worksheets("Feuil1").Range("I" & DerLig).Value = TextBox1
Worksheets("Feuil1").Range("J" & DerLig).Value = TextBox2
Worksheets("Feuil1").Range("K" & DerLig).Value = TextBox3
Worksheets("Feuil1").Range("L" & DerLig).Value = Combobox1
End Sub