Sub RechercherFichiers()
Dim Rep As String
Dim wk As Workbook
dim wkDest as workbook
set wkdest=thisworkbook
Rep = wkdest.Path & "\REP FICHIERS\"
s = Dir(Rep)
Do
if s like "*.xlsx" then
Set wk = CreateObject(Rep & s)
'****traitement de la recherche
wk.feuil1.range("A1").copy wkdest.feuil1.range("A1")
wk.Close savechanges:=False
end if
s = Dir
Loop While s <> ""
End Sub