j ai trouve ceci
mais cela ne fonctionne pas
Windows("factures.xls" ).Activate
Set wb = ActiveWorkbook
For Each ss In wb.Sheets
Application.CutCopyMode = False
ss.Copy
ActiveWorkbook.SaveAs Filename:= _
"Mettre ici le chemin" & ss.Name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("fichier1.xls" ).Activate
Next