XL 2016 Impression plage sur deux feuilles

Sub Imprimer()
With ActiveSheet
    With .PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .PrintArea = "A1:P42"
    End With
    .ResetAllPageBreaks
    .HPageBreaks.Add .Rows(31) 'saut de page
    .PrintOut
End With
End Sub

Option Explicit

Sub Impression_02()
Dim sNomPDF As String
    Application.ScreenUpdating = False

    Feuil1.PageSetup.PrintArea = "$A$1:$P$30"
    Application.Goto Reference:="Print_Area"

    sNomPDF = ThisWorkbook.Path & "\" & "Zone_01.pdf"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                                  Filename:=sNomPDF, _
                                  Quality:=xlQualityStandard, _
                                  IncludeDocProperties:=True, _
                                  IgnorePrintAreas:=False, _
                                  OpenAfterPublish:=False

    Feuil1.PageSetup.PrintArea = "$A$31:$P$42"
    Application.Goto Reference:="Print_Area"

    sNomPDF = ThisWorkbook.Path & "\" & "Zone_02.pdf"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                                  Filename:=sNomPDF, _
                                  Quality:=xlQualityStandard, _
                                  IncludeDocProperties:=True, _
                                  IgnorePrintAreas:=False, _
                                  OpenAfterPublish:=False

    Feuil1.Range("A1").Select
    Application.ScreenUpdating = True
End Sub