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