Sub Macro1()
Dim sf As Object 'déclare la variable sf (Système de Fichiers)
Dim ca As String 'déclare la variable ca (Chemin d'Accès)
Dim d As Object 'déclare la variable d (Dossiers)
Dim fs As Object 'déclare la variable fs (FichierS)
Dim f As Object 'déclare la variable f (Fichier)
Dim cl As Workbook 'déclare la variable cl (CLasseur)
ca = ThisWorkbook.Path 'définit le chemin d'accès (à adapter à ton cas)
Set sf = CreateObject("Scripting.FileSystemObject") 'définit le système de fichiers sf
Set d = sf.getfolder(ca) 'définit le dossier d
Set fs = d.Files 'définit les fichiers fs
For Each f In fs 'boucle sur tous les fichiers f
Workbooks.Open (ca & "\" & f.Name) 'ouvre le fichier
Set cl = ActiveWorkbook 'définit le classeur cl (la variable cl sera utilisée pour le traitement des données)
'ton code de traitement
cl.Close SaveChanges:=False 'ferme le classeur cl
Next f 'prochain fichier de la boucle
End Sub