Sub ZoneImpression()
Dim entete&, hpage&, dercel As Range, derlig&, prem&, ad$
entete = 5 'nombre de lignes de l'en-tête
hpage = 20 'nombre de lignes de chaque page
Set dercel = [A:K].Find("*", LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
derlig = Application.Max(dercel.Row, entete + 1)
prem = entete + 1 + Application.Floor(derlig - entete - 1, hpage)
ad = "$A" & prem & ":$K" & prem + hpage - 1
ActiveSheet.PageSetup.PrintArea = ad
[A:K].Interior.ColorIndex = xlNone
Range(ad).Interior.ColorIndex = 40 'couleur orange
End Sub