XL 2016 Modifier en-tête de plusieurs fichiers

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