Choix de pages pour convert to pdf

Sub Tst()
Dim Rg As Range
    Set Rg = Application.Union(Range("Page1"), Range("Page2"), Range("Page3"))
    Rg.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                           ThisWorkbook.Path & "\" & "Test.pdf", _
                           Quality:=xlQualityStandard, _
                           IncludeDocProperties:=True, _
                           IgnorePrintAreas:=False, _
                           OpenAfterPublish:=False
    Set Rg = Nothing
End Sub

'enregistrer pages en PDF
Sub convert_to_pdf_allpage()
Dim sRep As String
Dim sFilename As String
Dim Nom As String
Nom = InputBox("Saisie de votre PDF : ", "Enregistrement PDF", "MonPDF")
If Nom = "" Then Exit Sub
    sRep = ThisWorkbook.Path & "\" 'chemin du dossier
    sFilename = Replace(ThisWorkbook.Name, ".xlsm", "") 'nom seul sans extension
    sFilename = sFilename & Nom & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sRep & sFilename, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        From:=1, To:=11, OpenAfterPublish:=True 'From:=1 numero de la page début, To:=11 numero de la page fin
        MsgBox Nom & " est enregistré dans le même dossier que ce classeur"
 End Sub