Copier Coller Tableaux dans un nouveau classeur

Option Explicit


Sub Essai()
  Const WbSource As String = "Exo 2 Nihadlahit - Copie tableaux"
  ' Un seul dlig suffit : pas besoin de dlig2
  Dim dlig As Long: Application.ScreenUpdating = False
  Workbooks.Add ' Ajout d'un nouveau classeur ; remarque bien qu'après
  ' l'ajout d'un nouveau classeur, on est dessus, et sur "Feuil1".
  With Workbooks(WbSource).Worksheets("Feuil1")
    dlig = .Range("H" & Rows.Count).End(xlUp).Row
    .Range("H1:L" & dlig).Copy [A1]
  End With
  With Workbooks(WbSource).Worksheets("Feuil2")
    dlig = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:D" & dlig).Copy [H1]
  End With
  '
  ' À ce stade, ton nouveau classeur est fait comme tu le veux, mais non enregistré ;
  ' à toi de choisir si tu fais un simple enregistrement manuel, ou si tu ajoutes
  ' une ligne ici pour sauvegarder automatiquement ton nouveau classeur ; mais
  ' c'est là que tu dois lui donner un nom, autre que "Classeur1"
  '
  ' Si ton nouveau classeur ne contiendra pas de macros, la ligne suivante mettra
  ' automatiquement l'extension ".xlsx"
  '
  ' ActiveWorkbook.SaveAs "Exo 2 Nihadlahit - Tableaux copiés"
  '
  ' Si ton nouveau classeur devra contenir au moins une macro, la ligne suivante
  ' mettra l'extension ".xlsm" ; 52 est plus court à mettre que la constante :
  ' xlOpenXMLWorkbookMacroEnabled
  '
  ' ActiveWorkbook.SaveAs "Exo 2 Nihadlahit - Tableaux copiés", 52
  '
  '
  ' Le nouveau classeur est sauvegardé dans le même dossier que celui où tu as mis
  ' le classeur source "Exo 2 Nihadlahit - Copie tableaux", donc probablement dans
  ' ton dossier "Mes documents" ; si tu veux choisir un autre dossier, à toi de
  ' l'indiquer explicitement, en ajoutant le bon chemin devant ; exemple :
  '
  ' ActiveWorkbook.SaveAs "C:\Users\nihadlahit\Documents\Sous-dossier X\Exo 2 Nihadlahit - Tableaux copiés", 52
  '
End Sub