Sub Recherche()
Dim Ws As Worksheet, WbBase As Workbook, Fichier as String, _
derlig as Long, cel as Range
Fichier = ThisWorkbook.Path & "\Nom_Fichier.xlsm"
Workbooks.Open (Fichier)
Application.WindowState = xlMinimized
Set WbBase = Workbooks("Nom_Fichier.xlsm")
Set Ws = WbBase.Sheets("Feuil8")
derlig = Feuil1.Range("b" & Rows.Count).end(xlUp).Row
With Ws.Range("h24:ac37")
Set cel = .Find(Ws.Range("a2"), , xlValues, xlWhole)
If Not cel is Nothing Then
Feuil1.Range("b" & derlig) = cel.Offset(0, 0)
End If
End With
End Sub