Private Sub CommandButton3_Click()
Dim Ligne As Long
If ListBox1.ListIndex = -1 Then Exit Sub
Ligne = Range("A:A").Find(ListBox1.List(ListBox1.ListIndex, 0), LookIn:=xlValues).Row
Range("B" & Ligne) = TextBox1
Range("C" & Ligne) = TextBox2
Range("D" & Ligne) = TextBox3
Range("E" & Ligne) = ComboBox1
Range("F" & Ligne) = ComboBox2
Call UserForm_Initialize
End Sub