Sub maj()
Application.ScreenUpdating = False
Dim Chemin As String, NF As String
Dim n As Long
Chemin = ThisWorkbook.Path & "\"
NF = Dir(Chemin & "*.xls")
Do While NF <> ""
n = n + 1
NF = Dir()
Loop
NF = Dir(Chemin & "*.xls")
For i = 1 To n
If NF <> ThisWorkbook.Name Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & NF
With ThisWorkbook.Sheets("Destination")
.Cells(1, i) = NF
.Cells(2, i) = Workbooks(NF).Sheets("Feuil1").Range("A1")
End With
Workbooks(NF).Close False
NF = Dir()
End If
Next i
Application.ScreenUpdating = True
MsgBox "Traitement terminé "
End Sub