Sub CopieSansMacro()
Dim newName1, newname2, oldStatus
newName1 = Replace(ThisWorkbook.FullName, ".xlsm", " (copie).xlsm")
oldStatus = Application.ScreenUpdating: Application.ScreenUpdating = False
Application.DisplayAlerts = False: On Error Resume Next
Kill newName1: ThisWorkbook.SaveCopyAs newName1
Workbooks.Open newName1
newname2 = Replace(newName1, ".xlsm", ".xlsx"): Kill newname2
ActiveWorkbook.SaveAs Filename:=newname2, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close: Kill newName1
On Error GoTo 0: Application.DisplayAlerts = oldStatus
If Dir(newname2) <> "" Then
MsgBox "Fichier sauvegardé sans macro sous :" & vbLf & newname2, vbInformation
Else
MsgBox "Fichier sauvegardé sans macro ==> Echec ! ", vbCritical
End If
End Sub