With Workbooks("macrocompl.xlam")
.IsAddin = False
ActiveWorkbook.SaveCopyAs "C:\MesDocs\test.xlsm"
.IsAddin = True
End With
ThisWorkbook.IsAddin = False
NOMW = ThisWorkbook.Name
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")
ActiveWorkbook.SaveCopyAs chemin & "\" & NOMW & ".xlsm"