Option Explicit
Sub Onglet_2_enregistrer()
On Error Resume Next ' si enregistrement refusé
Feuil2.Copy
' emplacement adapter
ActiveWorkbook.SaveAs Filename:="C:\Users\00\Downloads\" & Feuil2.Name & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWindow.Close
End Sub