Private Sub CommandButton1_Click()
Index = ComboBox1.Value
'recherche de la ligne
Table = Sheets("Feuil1").UsedRange.Value
nb = UBound(Table, 1)
For i = 1 To nb
If Table(i, 1) = Index Then Exit For
Next i
Sheets("Feuil1").Cells(i, 2) = TextBox1.Value
Sheets("Feuil1").Cells(i, 3) = TextBox2.Value
End Sub
Private Sub UserForm_Initialize()
With Sheets("Feuil1")
ComboBox1.List = .Range("A1:A" & Range("A65536").End(xlUp).Row).Value
End With
End Sub