XL 2016 Supprimer plusieurs pages dufichier word en une seul operation

Public Sub test()
Dim Wordapp As Object
Dim Link As String
Dim iNum As Integer
Dim rDeb, rFin

    Set Wordapp = CreateObject("Word.Application")
    Link = ThisWorkbook.Path & "\Doc1.doc"
    Wordapp.Documents.Open Link
    iNum = 16

    With Wordapp
             .Visible = True
             .Selection .GoTo What:=1, Which:=2, Name:=iNum
             rDeb =.Selection .GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum).Start
            rFin = .Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum + 1).Start
    End With
    ActiveDocument.Range(rDeb, rFin).Delete

End Sub

Sub SupprimerPage()
Dim Rng As Range, Num&
On Error Resume Next
Num = InputBox("Saisir le N° de la page", "SUPRESSION PAGE")
With ActiveDocument
    Set Rng = .GoTo(What:=1, Name:=Num): Set Rng = Rng.GoTo(What:=-1, Name:="\page")
Rng.Delete
End With
End Sub