XL 2013 zone d'impression dans une boucle

bonjour, je voudrais faire une boucle pour imprimer 4 zone d'impression différentes et relatives à la position
de départ d'une cellule. j'ai essayé différentes manières mais ça ne marche pas.
si vous avez la solution je vous remercie d'avance ...
voici le code :

Sub Macro12()
' Macro
'
Dim vadresse
Dim cpt1
Dim zone
vadress = ActiveCell.Address
For cpt1 = 1 To 4
zone = ActiveCell.Offset(2, 0).Range("A1:G8").Activate
ActiveSheet.PageSetup.PrintArea = zone
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveCell.Offset(8, 0).Range("A1").Activate
Next
Range(vadress).Offset(0, 0).Select
End Sub

cordialement