Excel liaison et copie

bonjour à tous
je voudrais que quelqu'un puisse m'aider à résoudre un souci excel
bon je m'explique : je souhaite faire une liaison entre deux feuille excel (feuil1 et feuil2)et que chaque fois que je copie la feuille 2 entièrement je voudrais que la liaison sera maintenu avec la feuille 1 mais en se déplaçant d'une colonne.
j'ai déjà une macro "copie" qui copie n fois une feuille excel et je souhaite la modifier pour garder la liaison mais comme j'ai expliqué en changeant chaque fois de colonne.

Sub Copie()
Dim i, z
z = InputBox("Nombre de copies ", "Copie" )
For i = 1 To z
Sheets("feuil2" ).Copy After:=Sheets(i)
ActiveSheet.Name = " " & i
Next i
End Sub

merci d'avance!
je vous prie de m'aider !