Private Sub CommandButton2_Click()
Dim Idx As Long
Idx = ComboBox1.ListIndex
If Idx = -1 Then Exit Sub
With Sheets("Base de Données")
.Range("C" & Idx + 4) = TextBox1.Value
.Range("E" & Idx + 4) = TextBox2.Value
.Range("H" & Idx + 4) = TextBox3.Value
.Range("N" & Idx + 4) = ComboBox2.Value
End With
MsgBox "ok"
End Sub