Sub Imprimer()
Dim z As Integer
With Feuil1 'CodeName, à adapter
.ResetAllPageBreaks
.HPageBreaks.Add Rows(63) 'saut de page
With .PageSetup
.PrintTitleRows = "$4:$6" 'en-tête
For z = 100 To 10 Step -1
.PrintArea = "$B$4:$O$121"
.Zoom = z
If .Parent.HPageBreaks.Count = 1 Then Exit For
Next
End With
.PrintOut 'impression
End With
End Sub