Sub Macro7()
Dim WkCible as Workbook
ThisWorkbook.Worksheets(Array(4, 9)).Copy
Set WkCible = ActiveWorkbook
With WkCible
.SaveAs Filename:="D:\titi du " & Format(Now, "dd.mm.yyyy") & ".xls"
'
' autres lignes de travail sur le nouveau classeur
'.....
end with
End Sub