copie de feuillle facture puis affichage du bilan sur la feuille active

[c0uike]

Bonjour,

voilà j'ai créer un modèle de facture.
Seulement sur certaine facture il n'y pas la place de tous écrire alors j'aimerai le faire sur plusieurs page.
Puis ensuite faire le bilan sur ma première page facture.



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

Il faudrait compléter cette formule pour qu"elle affiche

Total page 2 cellule g15 puis en k15 (=page 2 ;cellule k37)
Total page 3 cellule g16 puis en k16 (=page 3 ;cellule k37)
etc en fonction du nombre de page copier.

merci d'avance