Option Explicit
Dim var As String
Chm = "C:\Users\Poste_1\Desktop\"
ActiveWorkbook.SaveAs Filename:=Chm & var & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'fonctionne mais ne prends pas en charge les macros
'ActiveWorkbook.SaveAs Filename:=Chm & var & ".xlsm", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ne fonctionne pas