Hello,
ActiveWorkbook.Save
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs ThisWorkbook.Path & "\" & xWs.Name, xlCSV, CreateBackup:=False, Local:=True
Next
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Test.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Tu enregistres 2 fois le même classeur au même emplacement.