XL 2019 Enregistre les page a imprimer dans un seul fichier pdf

Sub test()

Dim arrFeuilles()
we = WorksheetFunction.Max(Feuil1.Range("A:A"))
Application.ScreenUpdating = True
For i = 1 To we 'jusqu'au max de A
    Feuil2.Copy after:=Sheets(Sheets.Count)   'copie Feuil1 en dernier (<<<ADAPTER Feuil1 ?)
    With ActiveSheet 'avec feuille active, nouvellement créée
        [N18] = i 'maj valeur N18
        [J11] = [J18]
        'PrintOut Copies:=1, Collate:=True, ignoreprintareas:=False 'impression
        ReDim Preserve arrFeuilles(1 To i) 'redimension tableau de stockage des noms
        arrFeuilles(i) = .Name 'item i stocke nom feuille
    End With
Next i
Sheets(arrFeuilles).Select 'sélectionne les feuilles créées
DateF = Format(Date, "_dd-mm-yy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ChoixDossier & DateF, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
        Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
  Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Choisir le dossier de destination"
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Répertoire?")
     End If
End Function