Macro pour imprimer

Bonjour,
je cherche a créer une macro pour but de changer la valeur de la cellule "Z7" de 1 à 10 et imprimer a chaque fois la page 2
j'ai crée une macro mais "Z7" reste uniquement dans la valeur 1 et imprime un très grand nombre de page sans s’arrêter

voila la macro :

Sub Macro1()
'
' Macro1 Macro
'

'
Dim i As Integer
For i = 1 To 10
i = Range("Z7").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Next
End Sub

merci d'avance