compter le nombre de pages par onglet pour numéroter tous les onglets à suivre

[gilles72]

Bonjour

Sur un fichier comptant de 5 à 70 onglets
chaque onglet comporte 1 ou plusieurs pages (variable)
je souhaite numéroter tous les onglets à suivre, c'est à dire:
exemple:
onglet 1: 1 page
onglet 2: 4 pages
onglet 3: 3 pages
onglet 4: 1 page

ça me donnerait:
onglet 1: page 1 sur 9
onglet 2: page 2 sur 9 à 5 sur 9
onglet 3: page 6 sur 9 à 8 sur 9
onglet 4: page 9 sur 9
J'utilise ce code qui me porte sur AA2 de chaque onglet, le nombre de pages.
nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
Range("AA2").Value = nbpages

Ensuite une fonction cumule toutes les cellules AA2 pour calculer le nobre total de pages.

Le pb c'est que ça bug, car le nombre de pages défini par la macro excel4 n'est pas fiable:
une fois il indique 3 pages, (sur un onglet de 4 pages) la fois d'après il indique 2 ou 4.

J'aimerais savoir si on ne peut pas s'appuyer sur la zone d'impression de chaque feuille, pour définir le nombre de pages. Exemple:
.PageSetup.PrintArea = "$A$1:$O$" & Range("c65365").End(xlUp).Row
me définit 4 pages
Comment utiliser cette info pour en extraire le nbre de pages.

Merci à vous