Option Explicit
Sub ouvrirfichiers()
Dim Fichier As String, Chemin As String, Wb As Workbook
Chemin = "D:\Dossier\Sous-Dossier\" 'adapter chemin
Fichier = Dir(Chemin & "*.xls*")
Do While Fichier <> ""
Set Wb = Workbooks.Open(Chemin & Fichier)
'suite de la procedure
Call test 'appel de tes macros
Application.DisplayAlerts = False
Wb.Close True
Application.DisplayAlerts = True
Set Wb = Nothing
Fichier = Dir
Loop
End Sub
Sub test()
MsgBox "1ère macro"
MsgBox "2ème macro"
MsgBox "3ème macro"
MsgBox "4ème macro"
End Sub