Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("M1") = TextBox76
lig = Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("synthèse").Cells(lig, 1) = UserForm1.TextBox76
Sheets("Feuil1").Range("J2") = ComboBox1
lig = Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("synthèse").Cells(lig, 1) = UserForm1.ComboBox1
Sheets("Feuil1").Range("c3") = TextBox1
lig = Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("synthèse").Cells(lig, 1) = UserForm1.TextBox1
Unload Me
End Sub