Private Sub BtnValider_Click()
Dim I As Byte, J As Byte
If Menu_reception.Controls("ComboBox1") = "" Or Controls("TextBox2") = "" Or Controls("TextBox4") = "" Or Controls("TextBox7") = "" Or Controls("TextBox9") = "" Then
MsgBox ("Les champs marqués d'un astérisque (*) sont obligatoires.")
End If
Sheets(ComboBox1.Value).Select
ligne = Range("B65536").End(xlUp).Offset(1, 0).Row
For I = 2 To 10
Cells(ligne, I).Value = Controls("TextBox" & I).Value
ComboBox1.Value = ""
Controls("TextBox" & I).Value = ""
Next I
End Sub