Dim oPage As Publisher.Page

Set oPage = ActiveDocument.ActiveView.ActivePage

Dim oPage As Publisher.Page
With Application.ActiveDocument.Pages
    Set oPage = .Item(.Count)
End With

Dim intNBPage As Integer
intNBPage = Application.ActiveDocument.Pages.Count
MsgBox intNBPage

Application.ActiveDocument.Pages.Add 1, 0

With Application.ActiveDocument.Pages
    .Add 2, .Count
End With

With Application.ActiveDocument.Pages
    .Add 1, .Count
End With

With Application.ActiveDocument.Pages
    .Add 1, .Count, 2
End With

Application.ActiveDocument.Pages.Item(5).Delete

With Application.ActiveDocument.Pages
    .Item(.Count).Delete
End With

Dim oPage As Publisher.Page
Dim i As Integer
With Application.ActiveDocument.Pages
    i = .Count
    'Parcoure toutes les pages en sens inverse
    While i > 0
        Set oPage = .Item(i)
        'Si la page est vide, la supprimer
        If oPage.Shapes.Count = 0 Then
            oPage.Delete
        End If
        i = i - 1
    Wend
End With

Application.ActiveDocument.ActiveView.ActivePage