Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim fn$
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error Resume Next
Workbooks("Destination.xlsx").Close 'si le fichier est ouvert
With ThisWorkbook
fn = .FullName
.SaveAs .Path & "\Destination.xlsx", 51 '51 => .xlsx
.SaveAs fn, 52 '52 => .xlsm
End With
Application.EnableEvents = True
End Sub