"Mise à jour des pieds/haut de page de chaque feuille de calcul"
For x = 0 To Sheets.Count - 4 - 2 * nb "
Sheets(3 + x).PageSetup.CenterFooter = x + 2 & "/" & Sheets.Count - 5 - 2 * nb
Sheets(3 + x).PageSetup.RightHeader = ET
Sheets(3 + x).PageSetup.LeftFooter = EY
Next x
SelectionFeuilles "Macro de sélection des feuilles à enregistrer"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "Chemin choisi plus tôt dans la maccro", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False