Bonjour Dan,
Oui tu as raison je me suis mal exprimé.
Je viens de trouver une solution
Je vais changer le code par celui-ci
Private Sub TextBox7_Change()
Application.ScreenUpdating = False
For ligne = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(ligne, 1) Like "*" & UCase(TextBox7) & "*" Then
For j = 1 To 6
Me("textbox" & j) = Cells(ligne, j)
Next j
Exit For
End If
Next
End Sub
Merci pour votre aide