'En haut du formulaire
Dim lig As Long, i As Long, rw
Private Sub Ajouter()
'Tu aura un ID unique et donc pas de risque d'erreurs.
lig = Range("a" & Rows.Count).End(xlUp).Row + 1
Cells(lig, "A") = TextBox2 & TextBox3 & "-" & lig - 1
For i = 2 to 34
Cells(lig, i) = Controls("TextBox" & i)
Next i
End Sub
'Ensuite tu ajoute une combo de recherche _
en la remplissant avec la colonne A(dans Usf_Initialize()), puis tu ajoute ceci
Private Sub ComboBox1_Change()
If ComboBox10 <> "" Then
Call Recherche
Else
Exit Sub
End If
End Sub
Private Sub Recherche()
Dim rw, i As Long
With Sheets(2)
rw = Application.Match(ComboBox1, .Columns(1), 0)
For i = 2 To 34
Controls("TextBox" & i) = .Cells(rw, i)
Next i
End With
End Sub
Private Sub Modifier()
With Sheets(2)
rw = Application.Match(ComboBox1, .Columns(1), 0)
For i = 2 To 34
.Cells(rw, i) = Controls("TextBox" & i)
Next i
End With
End Sub