Sub Impression()
Dim NbPages%, Imprime$
' Nombre de pages à imprimer
NbPages = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
' Imprime page par page
For N = 1 To NbPages
Imprime = "PRINT(2," & N & ",32766,1,,,,,,,,2,,,TRUE,,FALSE)"
ExecuteExcel4Macro Imprime
Next N
End Sub