Salut,
Admettons que ton fichier s'appelleFichier2, essaies plutôt ce type de procédure.
Sub Recherche()
Dim C As Range, Plage As Range, Chaine As String
Chaine = ActiveCell.Text 'on recherche la valeur la cellule actrive du 1 er fichier
With Workbooks("fichier2.xls")'ton fichier dans lequel tu fais ta recherche
Set Plage = .Sheets("Lenomdetafeuille").Columns(2)
Set C = Plage.Find(Chaine, , xlValues, xlWhole, , , False)
If Not C is nothing then
'ton traitement
End if
End With
End Sub
A+++