Sub Quitter()
' Quitter Macro
' MML 29 Janvier 2012
'
ChDir "C:\Users\Madeleine\Desktop\SOMECAF\Michel - 2013"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Madeleine\Desktop\SOMECAF\Michel - 2013\Preparation Saisie.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close
End Sub