Dim vr As Variant
Dim base As Range
Dim r As Range
vr = Range("A1").Value
Set Fichier1 = ActiveWorkbook
Set Fichier2 = Workbooks.Open("C:\Fichiersource.xls")
Set base = Fichier2.Sheets("Feuil1").Columns("A:A")
Set r = base.Find(vr, , xlValues, xlWhole)
Fichier1.Activate
If Not r Is Nothing Then Range("C1").Value = r.Offset(0, 1)
Fichier2.Close savechange = False
Set Fichier2 = Nothing