Bonjour Nizar2015
Pour remplir les champ d'un USF après une recherche, on ne procède absolument pas comme cela
Voici une possibilité de code à utiliser
Private Sub TextBox1_AfterUpdate()
Dim CelF As Range, LigF As Long
' Avec la feuille active
With ActiveSheet
' Rechecher la valeur saisie dans la colonne C
Set CelF = .Range("C:C").Find(What:=Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
' Si valeur trouvée
If Not CelF Is Nothing Then
' Numéro de la ligne ou la valeur à été trouvée
LigF = CelF.Row
' On remplit les champs
Me.TextBox2 = .Range("D" & LigF)
Me.TextBox3 = .Range("E" & LigF)
Me.TextBox4 = .Range("F" & LigF)
Me.TextBox5 = .Range("B" & LigF)
End If
End With
End Sub
A+