Sub Test()
Dim rngA, x&, j&
x = ExecuteExcel4Macro("GET.DOCUMENT(50)")
rngA = Array("A1:H50", "A51:H100", "A101:H150")
Application.ScreenUpdating = False
For j = 0 To 2
With ActiveSheet.PageSetup
.PrintArea = rngA(j): .CenterFooter = Feuil2.[A1] + j + 1
End With
ActiveSheet.PrintPreview
Next j
ActiveSheet.PageSetup.PrintArea = Empty
End Sub