Enregistrement automatique PB avec un module VBA

bonjour le forum,

j'ai un fichier xlsm avec un enregistrement automatique qui marche très bien. Voici ce que je n'arrive pas à faire:

ce fichier nommé X s'enregistre automatiquement... (sauvegarde en VBA)

j'ai également d'autres voies d'enregistrement par boutton: création de nouveau fichiers:A, B et C... comment faire pour éviter que la sauvegarde automatique en VBA de X soient présentes sur A, B et C... car sinon tout plante

voici my thisworkbook:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopChrono
End Sub

Private Sub Workbook_Open()
Chrono
End Sub

et mon module:

Sub EnregistrerFichier()
Dim Nom As String

ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\Grabacion automatica\" & "grabacion automatico para recuperacion" & Split(ActiveWorkbook.Name, ".")(0) & ".xls"
End Sub

Sub Chrono()
'Programacion del evento todas las cinco minutos
Tps = Now + TimeValue("00:05:00")
Application.OnTime Tps, "Chrono"
EnregistrerFichier ' appelle la macro d'enregistrement
End Sub

Sub StopChrono()
On Error Resume Next
'Stopper la gestion de l'évènement OnTime en cours
Application.OnTime Tps, "Chrono", , False
End Sub

sans doute une ligne à rajouter en prenant en compte le nom du fichier X qui ne change pas...

Merci à vous