zone d'impression variable

bonjour ,
j'ai une page pour laquelle je voudrai automatiser l'impression
la cellule de départ est A1 jusque h13
H13 est variable
je ne sais pas comment m'y prendre
merci pour votre aide

Bonjour,

Avec quelque chose comme ceci ce devrait fonctionner :

Code:

---

1 2 3 4 5 6 7

Sub subZoneImpression() Dim lMax As Long   lMax = Worksheets("Feuil1").Range("A65536").End(xlUp).Row Worksheets("Feuil1").PageSetup.PrintArea = "A1:H" & lMax   End Sub

---

Bonne journée.