XL 2010 VBA Imprimer numéro de page

Bonjour les amis, je bloque sur un fichier
je vous ai mis en PJ un fichier qui s'imprime sur deux pages
Je voudrais imprimer un cahier de n pages et imprimer le numéro des pages en bas de page ou dans une cellule du bas
par exemple Page1/50, page 2/50...
J'ai trouvé une macro mais qui ne marche que sur une seule page, avec par exemple la cellule H29
mais sans le /50.
Si vous avez un peu de temps pour vous y pencher je vous remercie d'avance
ou si vous connaissez un lien de discussion
Eric

la macro que j'ai trouvé :

La macro dans ThisWorkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Imprimer
End Sub

Et dans Module1 :

Sub Imprimer()
Dim n As Variant
1 n = InputBox("Nombre de copies :", "Imprimer")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
Application.EnableEvents = False 'évite le lancement de BeforePrint
With ActiveSheet
For n = 1 To Val(n)
.[H29] = .[H29] + 1 'numérotation
.PrintOut
Next
End With
Application.EnableEvents = True
End Sub