Sub enregistrer()
'
' enregistrer Macro
'
Dim Rep As String, NewProjet As String
Rep = "C:\Documents and Settings\MYPC\Bureau\Ezrielle\"
NewProjet = Range("Nom_projet") & ".xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Rep & NewProjet, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub