Bonjour,
Essayez avec le code suivant
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...