Option Explicit
Sub Enregistre()
Dim objWorkbookModele As Workbook
Dim objWorkbookCible As Workbook
Dim chemin As String, Nomfichier As String
chemin = ActiveWorkbook.Path & "\"
Nomfichier = "Marcel"
Set objWorkbookModele = ActiveWorkbook
Application.DisplayAlerts = False
objWorkbookModele.ActiveSheet.Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.SaveAs chemin & Nomfichier & ".xlsx"
Set objWorkbookCible = ActiveWorkbook
objWorkbookCible.Close
Application.DisplayAlerts = True
MsgBox "Enregistrement effectué", vbOKOnly, "Sauve"
End Sub