Numerotation d'une page

Sub impr_num()

Dim Message As String, Titre As String, Defaut As String, NCopies As Long
Dim Rng1 As Range

Message = "Entrez le nombre de pages que vous souhaitez imprimer"
Titre = "Impression"
Defaut = "1"

' Affiche le message qui demande le nombre à imprimer
NCopies = Val(InputBox(Message, Titre, Default))
Numero = 1

Set Rng1 = ActiveDocument.Bookmarks("Numero").Range
Counter = 0

While Counter < NCopies
    Rng1.Delete
    Rng1.Text = Numero
    ActiveDocument.PrintOut
    Numero = Numero + 1
    Counter = Counter + 1
Wend

'Recrée le signet pour une utilisation future
With ActiveDocument.Bookmarks
    .Add Name:="Numero", Range:=Rng1
End With

ActiveDocument.Save
End Sub