Microsoft 365 Création PDF zones nommées

Option Explicit

Public Sub PDF_MaPlage()
    Dim MaPlage As Name
    Dim sNom As String
    
    On Error GoTo GestionErreur
GestionErreur:
        If Err.Number = 1004 Then
            Resume Next
        End If
    
    For Each MaPlage In ActiveWorkbook.Names
        sNom = ThisWorkbook.Path & "\" & MaPlage.Name & ".pdf"
        Range(MaPlage).ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=sNom, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Next MaPlage
End Sub

Feuil2.Range(MaPlage).ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=sNom, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False