bonjour,
Hum... Une macro de sauvegarde c'est avec Save
Une macro SaveAs sauvegarde ton fichier en le renommant.
Si tu veux créer une copie de ton fichier sous un autre nom c'est SaveCopyAs
Remplacer par la ligne suivante :
ActiveWorkbook.SaveCopyAs Filename:=chemin & nom & ".xlsm"
... ce qui ne dispense pas de sauvegarder également ton classeur sous son nom habituel !
A+