Pour copier deux pages qui se nomment "VMI 4" et "VMI 16" dans un fichier appelé "toto", j'utilise la macro suivante :
Sheets(Array("VMI 4", "VMI 16")).Copy
ActiveWorkbook.SaveAs Filename:="K:\APPRO\VMI\NDY\toto.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Bonnes fêtes !