'Copier les feuilles vers un nouveau classeur
Dim Sh As Worksheet
Dim classeur2 As String
Dim classeur1 As String
classeur1 = ActiveWorkbook.Name
Workbooks.Add
classeur2 = ActiveWorkbook.Name
For Each Sh In Workbooks(classeur1).Worksheets
Workbooks(classeur1).Sheets(Sh.Name).Copy After:=Workbooks(classeur2).Sheets(Sheets.Count)
Next Sh
'Supprime les feuilles non nécessaires
Sheets("Feuil1").Delete
Sheets("Feuil2").Delete
Sheets("Feuil3").Delete
Workbooks(classeur2).Activate