Je souhaite recopier des tableaux positionnés sur 2 feuilles du même classeur et les coller dans la feuille 1.

Pour cela, je fais:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
   ' j'active le prese-papier
   Application.CommandBars("Clipboard").Visible = True
 
   For NUM_FEUILLE = 2 To Worksheets.Count
       Worksheets(NUM_FEUILLE).Select
       Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
       If NUM_FEUILLE > 2 Then
          Application.CutCopyMode = False
       End If
       Selection.Copy
   Next NUM_FEUILLE
 
   Worksheets(1).Select
   Range("A1").Select
   ActiveSheet.Paste
Cela ne fonctionne pas, je n'ai que le dernier tableau copié. Que puis-je faire ?