Sub Macro1()
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim F As String 'déclare la variable F (Fichier)
Dim CL As Workbook 'déclare la variable CL (CLasseur)
Set CH = "C:\Blablabla1\blablabla2\Blablabla3\" 'définit le chemin d'accès CH (à adapter à ton cas sans oublier le dernier \ à la fin)
F = Dir(CH & "*.xlsx") 'définit le premier fichier xlsx ayant CH comme chemin d'accès (extension à adapter selon ton cas)
Do While F <> "" 'boucle tant qu'il existe des fichiers F
Set CL = Application.Workbooks.Open(CH & F) 'définit le classeur CL en l'ouvrant
CL.Worksheets(1).Activate 'active le premier onglet du classeur CL
'change l'en-tête de l'onglet actif
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.CenterHeader = "00000b"
End With
Application.PrintCommunication = True
CL.Close SaveChanges:=True 'ferme en enregistrant les modifications
F = Dir 'définit le fichier xlsx suivant ayant CH comme chemin d'accès
Loop 'boucle
End Sub