En supposant que j'ai bien compris.
Et que ça marche chez moi, mais pas chez toi pour diverses raisons ( Version d'Excel différente (je suis en 2000 )...), je te propose d'essayer la methode ci-dessous:
Private Sub CommandButton2_Click()
Dim Cherche As String
Dim L As Integer
Dim Maplage As Range
Dim FirstADdress As String
Dim C As Object
Cherche = TextBox4
If Cherche = "" Then
Exit Sub
End If
UserForm1.Caption = "Thierry's Démo Mode Recherche par String"
i = 4
Do
For j = 1 To 3
If InStr(1, UCase(Cells(i, j)), UCase(Cherche)) <> 0 Then
' MsgBox "Trouve"
ListBox2.AddItem Cells(i, j)
End If
Next j
i = i + 1
Loop While Cells(i, 1) <> ""
End Sub
Tiens moi au courrant. Je te joins ton classeur modifié avec l'autre méthode.