Sub Essai1()
Dim f As Worksheet, a, i As Byte
Application.ScreenUpdating = False
a = Array("MaFeuil1", "Ab", "A", "D", "F", "Bilan", "Consolider","Test")
For i = LBound(a) To UBound(a)
With Worksheets(a(i)).PageSetup
'en-tête de page
.LeftHeader = "ABCD"
.RightHeader = "ABCD"
'pied de page
.LeftFooter = "ABCD"
.RightFooter = "ABCD"
End With
Next i
End Sub