NbPages$ = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
cel.Offset(0, 2) = cel.Offset(0, 2) + NbPages$
np$ = cel.Offset(0, 2)
With WApp.ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.Paragraphs. _
Alignment = wdAlignParagraphRight
.Headers(wdHeaderFooterPrimary).PageNumbers.Add
If cel.Offset(0, 2) <> "" Then ' Ici je récupère le nb de pages par document
'np$ = cel.Offset(0, 2) et divise np$ si >= 2
.Headers(wdHeaderFooterPrimary).Range.Text = "Page " & (np$ / np$) & " / " & NbPages$
Else
.Headers(wdHeaderFooterPrimary).Range.Text = "Page " & np$ & " / " & NbPages$
End If
End With