Affichage des numéros de page

Bonjour à toutes et tous,

Quelqu'un saurais t-il comment adapter le code suivant pour qu'il ne s'affiche non pas en haut à droite, mais dans la cellule "A4" ?

Worksheets("Débit").PageSetup.RightHeader = "Feuille &P / &N"

J'ai essayé ceci, sans succès :

Worksheets("Débit").PageSetup.Cells(4, 1) = "Feuille &P / &N"

et ceci : 

Cells(4, 1) =.PageSetup.RightHeader = "Feuille &P / &N"

Merci ;)

Bonjour,

Teste ceci :

MsgBox "Nombre de pages : " & ExecuteExcel4Macro("GET.DOCUMENT(50)")

Tiré des anciens codes Excel4...

Bonne journée

Bonjour cousin hub,

j'ai bien adapté ton code, il semble fonctionner.

Merci, bonne journée ;)