Sub Dir_Open_xls()
'Creer un dossier C:\Temp. Copier 4 fichier xls dans C:\Temp
'Sur une feuille excel, en A1, taper C:\Temp
'puis lancer la macro (Alt+F8) en étant en A1.
N = 1
NFAct = ActiveSheet.Name
Dossier = Cells(1, 1)
NF = Dir(Cells(1, 1) & "\*.xls*")
Do While NF <> ""
Workbooks(ThisWorkbook.Name).Sheets(NFAct).Cells(N, 3) = NF
Workbooks.Open Filename:=(Dossier & "\" & NF)
NF = Dir ' suivant
'Arrêt après 2 fichiers d'ouverts pour éviter que cela soit trop long
N = N + 1
If N = 3 Then End
Loop
ActiveCell.Offset(0, 1) = N
End Sub