Private Sub CommandButton1_Click()
Dim I As Integer
For I = 1 To 3
If Controls("TextBox" & I) = "" Then
MsgBox "Vous devez ABSOLUMENT remseigner les champs !", vbExclamation, _
"Erreur de saisie !"
Controls("TextBox" & I).SetFocus
Exit Sub
End If
Next I
I = Range("A2:A8").Find(ComboBox1).Row
Cells(I, 2) = CDbl(TextBox1)
Cells(I, 3) = CDbl(TextBox2)
Cells(I, 4) = CDbl(TextBox3)
Unload UserForm1
End Sub