Macro pour copier le fichier quand on le ferme

Bonjour,

Je suis à la recherche d'une macro qui enverrait automatiquement une copie A de mon fichier ailleurs sur le réseau lorsque je le ferme.

Le problème c'est que la macro est également copiée, du coup quand j'ouvre mon fichier A et que je veux le fermer j'ai un message d'erreur qui apparaît car la macro veut écraser le fichier dans lequel je suis.

Voici le code que j'ai utilisé:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs "c:\copie_fichier.xlsm"
Application.DisplayAlerts=True
End Sub

Merci