Bonjour,
Je cherche un code simple qui permet de fusionner plusieurs onglets d'une feuille dans un SEUL onglet d'un nouveau document.
Le mieux que j'ai pu faire jusqu'à présent est ceci. Je ne maitrise pas le activeSheeet.. Cela me crée un nouveau document mais avec les onglets qui ne sont pas fusionnés...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub test2()
   Dim i As Integer
   Application.ScreenUpdating = False
   For i = 1 To ActiveWorkbook.Sheets.Count
   ActiveSheet.[A1].CurrentRegion.Offset(1, 0).Copy _
          ActiveSheet.[A65000].End(xlUp).Offset(1, 0)         
   Next i
   With ActiveWorkbook
     .SaveAs "C:\Users\paqmarc\Documents\test.xlsm"
      .Close
   End With
 End Sub
Merci de votre aide..