Private Sub CommandButton2_Click()
Dim LigneMax As Long
LigneMax = Range("Base!A1").CurrentRegion.Rows.Count + 8
Range("Base!A" & LigneMax) = TextBox1.Text
Range("Base!B" & LigneMax) = TextBox2.Text
Range("Base!C" & LigneMax) = ComboBox1.Text
Range("Base!D" & LigneMax) = ComboBox2.Text
Range("Base!E" & LigneMax) = TextBox3.Text
Range("Base!F" & LigneMax) = TextBox4.Text
Range("Base!G" & LigneMax) = TextBox5.Text
Range("Base!H" & LigneMax) = TextBox6.Text
Range("Base!I" & LigneMax) = TextBox7.Text
Range("Base!J" & LigneMax) = TextBox8.Text
Range("Base!K" & LigneMax) = TextBox9.Text
Range("Base!L" & LigneMax) = ComboBox3.Text
Range("Base!M" & LigneMax) = ComboBox4.Text
Range("Base!N" & LigneMax) = ComboBox5.Text
Range("Base!V1") = Range("Base!V1") + 1
Range("Base!V" & LigneMax) = Range("Base!V1")
Me.Hide
End Sub