Private Sub Cmdannuler_Click()
Unload Me
End Sub
Private Sub Cmdnouveau_Click()
Unload Me
Userform1.Show
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub Valider_Click()
Rows(2).Insert
Sheets("liste contr").Range("C2").Value = TextBox1.Value
Sheets("liste contr").Range("E2").Value = TextBox2.Value
Sheets("liste contr").Range("F2").Value = TextBox3.Value
Sheets("liste contr").Range("G2").Value = TextBox4.Value
Sheets("liste contr").Range("H2").Value = TextBox5.Value
Sheets("liste contr").Range("I2").Value = TextBox6.Value
Sheets("liste contr").Range("B2").Value = TextBox7.Value
Sheets("liste contr").Range("Q2").Value = TextBox8.Value
Sheets("liste contr").Range("R2").Value = TextBox9.Value
Sheets("liste contr").Range("B2").Value = TextBox7.Value
Sheets("liste contr").Range("J2").Value = ComboBox1.Value
Sheets("liste contr").Range("K2").Value = CheckBox1.Value
Sheets("liste contr").Range("L2").Value = CheckBox4.Value
Sheets("liste contr").Range("M2").Value = CheckBox2.Value
Sheets("liste contr").Range("N2").Value = CheckBox3.Value
Sheets("liste contr").Range("P2").Value = CheckBox5.Value
End Sub