Sub sauver()
'ctrl + d
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
ActiveWorkbook.SaveAs "c:\Documents and Settings\Chewi\Desktop\fichier essai.xls"
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite
ActiveWorkbook.SaveAs "c:\Documents and Settings\Chewi\My Documents\fichier essai.xls"
End Sub