Private Sub CommandButton1_Click()
If Texbox1 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or Texbox10 = "" Or _
Texbox12 = "" Or Texbox13 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then
MsgBox "Merci de compléter tous les champs Bleu": Exit Sub
End If
If h35.Value = False And h39.Value = False Then MsgBox "Merci de compléter tous les champs Bleu": Exit Sub
Feuil1.Range("I1").Value = Feuil1.Range("A1").Value
With Feuil2 'Sheets("BASE")
lig = .[A65536].End(xlUp).Row + 1
.Cells(lig, 1) = Feuil1.Range("B10").Value
.Cells(lig, 2) = Feuil1.Range("B12").Value
.Cells(lig, 3) = Feuil1.Range("B14").Value
.Cells(lig, 4) = Feuil1.Range("B16").Value
.Cells(lig, 5) = Feuil1.Range("B18").Value
.Cells(lig, 6) = Feuil1.Range("B20").Value
.Cells(lig, 7) = Feuil1.Range("B26").Value
.Cells(lig, 8) = Feuil1.Range("B28").Value
.Cells(lig, 9) = Feuil1.Range("B32").Value
.Cells(lig, 10) = Feuil1.Range("B34").Value
.Cells(lig, 11) = Feuil1.Range("B37").Value
.Cells(lig, 12) = Feuil1.Range("B8").Value
End With
Feuil1.Range("B10:B37", "G10").Value = ""
TextBox1.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
ComboBox1 = ""
ComboBox2 = ""
h35.Value = False: h39.Value = False
End Sub