Sub EnregistrerOK()
Dim Rep As String, NewProjet As String
Rep = ActiveWorkbook.Path & "\" 'si c'est le même que pour le classeur modèle
'Rep = "C:\Documents and Settings\MYPC\Bureau\Ezrielle\" 'si c'est ailleurs
NewProjet = Range("D21") & ".xlsm" 'D21 est peut-être la cellule contenant le nom du projet
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Rep & NewProjet
Application.DisplayAlerts = True
End Sub