Sub Essai()
Dim i As Byte
For i = 0 To 7
With Sheets(Array("MaFeuil1", "Ab", "A", "D", "F", "Bilan", "Consolider", "Test")(i)).PageSetup
'en-tête de page
.LeftHeader = "ABCD": .RightHeader = "ABCD"
'pied de page
.LeftFooter = "ABCD": .RightFooter = "ABCD"
End With
Next
End Sub