Sub AddNew()
Dim classeur As Workbook
Set classeur = Workbooks.Add
classeur.Worksheets.Add Count:=10 'nb de feuille a ajouter (important sinon marche pas)
Windows("fichier d'origine.xlsm").Activate
Cells.Select
Sheets(Array("feuil1", "feuil2", _
"feuil3", "feuil4")).Select
Selection.Copy
Workbooks("classeur").Sheets("Feuil11").Cells.Select 'remplacer le num de feuille (N+1 ligne 3)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub