XL 2019 Export to pdf / Problème Zone d'impression

Sub PrintPDF()
    Plage = "A1:F50"                        ' A définir ( Attention, ne pas mettre Range )
    ActiveSheet.PageSetup.PrintArea = ""    ' Supprime la plage défini, au cas où ...
    ActiveSheet.PageSetup.PrintArea = Plage
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Sub EXPORTPDF()
  Dim MaPlage As Range
  '
  Worksheets(3).Activate
  Datesem = Range("B2")
  NomFeuille = ActiveSheet.Name
  noSemaine = Format(Datesem, "ww", vbMonday, vbFirstFourDays)
 
  With ActiveSheet
    Set MaPlage = .Range("A1:J" & .Range("A" & Rows.Count).End(xlUp).Row)
    With .PageSetup
      .Orientation = xlLandscape
      .PrintArea = MaPlage.Address
      .FitToPagesTall = False
      .FitToPagesWide = 1
    End With
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "Z:\26 - CHEFS D'EQUIPES\TOURNEES PDF\SEM" & noSemaine & " - " & NomFeuille & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
  End With
End Sub