XL 2016 Export plusieurs feuilles dans un nouveau classeur

Sheets(Array(Feuil1, Feuil2)).Copy

'Export du classeur :

On Error Resume Next
  MkDir chemin
  On Error GoTo 0
  With ActiveWorkbook

' Suppression de ThisWorkbook + Feuilles de classeur inutiles :

    Call Delete_Sheets_ThisWorkBook

' Enregistrer-sous (LeRep = répertoire et LeNom = Nom du fichier) :

    .SaveAs Filename:=LeRep & LeNom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
      Application.DisplayAlerts = False

' Réouverture du classeur qui a été "enregistré sous" (classeurOrigine = chemin complet de votre classeur) :

  Workbooks.Open Filename:=classeurOrigine

' Fermeture de la copie effectuée pour ne laisser ouvert que le classeur d'origine :

  .Close SaveChanges:=False
  Application.DisplayAlerts = True
  End With
Application.ScreenUpdating = True
End Sub

Sub Delete_Sheets_ThisWorkBook()
    'Macro de rénitialisation de ThisWorkBook pour la copie de sauvegarde du fichier
    ThisWorkBook_Delete "ThisWorkbook"

    Application.DisplayAlerts = False
        On Error GoTo ErrorSupp
            Feuil1.Delete
            Feuil3.Delete
    Application.DisplayAlerts = True
ErrorSupp:
Exit Sub
End Sub
Sub ThisWorkBook_Delete(NomModule As String)
    Dim X As Integer
   
    'On supprime tout le contenu de ThisWorkBook
    With ThisWorkbook.VBProject.VBComponents(NomModule).CodeModule
    .DeleteLines 1, .CountOfLines
    End With
End Sub

Sub Export_bis()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ThisWorkbook
    srPath = .Path & "\"
    .SaveCopyAs srPath & "X_temp.xlsm"
End With
Workbooks.Open srPath & "X_temp.xlsm"
Supprimer_Feuilles "Feuil5", "Feuil7"
Workbooks("X_temp.xlsm").SaveAs "archive.xlsx", 51
Workbooks("archive.xlsx").Close True
End Sub
Private Sub Supprimer_Feuilles(ParamArray Shts())
Dim shN As Variant
For Each shN In Shts
Sheets(shN).Delete
Next
End Sub