If Right$(oFile.Name, 4) = ".xls" Then 'test type de fichier
Workbooks.Open Range("sPath") & "\" & oFile.Name, 0 '<- 0: ne pas mettre à jour les liens externes.
Set wkbSource = ActiveWorkbook
' On copie chaque feuille 1 de chaque fichier trouvé
wkbSource.Sheets(1).Copy after:=wkbMain.Sheets(wkbMain.Sheets.Count)
End If