Sub aa()
Dim Recherche As Variant
Dim C As Range
Dim FirstAddress As String
Dim A$
Recherche = Worksheets("Feuil3").Cells(2, 1)
With Worksheets("Feuil1").Range(Cells(1, 1), Cells(200000, 30))
Set C = .Find(What:=Recherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstAddress = C.Address
Do
A$ = A$ & C.Address(False, False) & vbLf
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstAddress
End If
End With
If A$ <> "" Then MsgBox A$, vbOKOnly, "Recherche de " & Recherche
End Sub