Option Explicit
Sub test()
Dim MonRepertoire As String, fs As FileSearch, wb As Workbook, wb2 As Workbook
MonRepertoire = "D:\DONNEES\DOCLPE\Test"
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = MonRepertoire
.Filename = Range("B1").Value & "*" & ".xls"
If .Execute = 0 Then Exit Sub 'sortie de la procédure si classeur non trouvé
Set wb = Workbooks.Open(.FoundFiles(1))
End With
Set wb2 = ThisWorkbook
wb.Sheets("NomFeuille").Range("E2:F3").Copy Destination:=wb2.Sheets("NomFeuille").Range("D1")
wb.Close
End Sub