Macro à supprimer

Bonjour,

j'ai un fichier word sous forme de formulaire qui se remplit directement à partir des infos inscrites dans une base de données excel afin d'éviter les doubles saisies.

Ce fichier word intègre une macro qui permet de l'enregistrer sous un nom précis et sous un répertoire précis (avec les infos du formulaire).

Cependant mon soucis actuel est que la macro reste présente dans les fichiers word.
J'aurais aimé qu'elle soit supprimé après l'enregistrement car aujourd'hui j'ai plusieurs centaines de document word qui ont cette macro et ça devient fastidueux de l'effacer un à un.
Je vous colle la macro. Que faut il ajouter pour que la macro ne soit plus présente dans les fichiers enregistrés ?

Private Sub Document_Close() 'macro s'active en cliquant sur la croix de fermeture

'défini les variables
Dim nom As String
Dim répertoire As String

'défini le chemin du répertoire
répertoire = "\\Chemin$\CONTROLE\Bilan\Année " '!!! attention chemin d'accès à modifier si nécessaire"

On Error Resume Next
' vérifie l'existence du répertoire année, sinon le créé
ChDir répertoire & Year(Date) 'vérifie
If Err <> 0 Then
MkDir répertoire & Year(Date) 'création si inexistant
End If

' vérifie l'existence du répertoire Non conformité, sinon le créé
ChDir répertoire & Year(Date) & "\Non conformité" 'vérifie
If Err <> 0 Then
MkDir répertoire & Year(Date) & "\Non conformité" 'création si inexistant
End If

' vérifie l'existence du répertoire fournisseur, sinon le créé
ChDir répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result 'vérifie
If Err <> 0 Then
MkDir répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result 'création si inexistant avec prise en compte de la boite à texte 2 (fournisseur)
End If

' vérifie l'existence du sous répertoire du nom de la référence de la NC, sinon le créé
ChDir répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result & "\" & ActiveDocument.FormFields(1).Result 'vérifie
If Err <> 0 Then
MkDir répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result & "\" & ActiveDocument.FormFields(1).Result 'création si inexistant avec prise en compte de la boite à texte 2 (fournisseur) et boite à texte 1 (n° de la NC)
End If


'sauvegarde du document
'se place dans le répertoire correspondant
ChangeFileOpenDirectory répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result & "\" & ActiveDocument.FormFields(1).Result

'défini la nomenclature type du nom du fichier word
nom = ActiveDocument.FormFields(1).Result & " " & ActiveDocument.FormFields(2).Result

'vérifie l'existence du fichier word
If Dir(nom & ".doc") <> "" Then
'le fichier existe déjà, proposition de l'écraser ou non
Dim Rep As VbMsgBoxResult
Rep = MsgBox("Le fichier existe déjà, voulez vous écraser la version précédente ?", vbYesNo + vbQuestion, "Confirmation de sauvegarde")
'clic sur oui, document word est écrasé
If Rep = vbYes Then
ActiveDocument.SaveAs FileName:=nom & ".doc", FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End If
'clic sur non, le document peut être sauvegardé en modifiant le nom
Else
ActiveDocument.SaveAs FileName:=nom & ".doc", FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End If



End Sub