Enregistrement automatique rectification

Salut à tous, salut JNP
J'ai donc installé la macro qui fonctionne (dans ThisWorkbook), le problème c'est qu'on ne peut pas la rectifiée lorsqu'elle a fonctionné, et qu'on ne peut plus ouvrir aucun classeur excel tant que celui où est installé la macro est ouvert.
Autre macro avec le même problème ci-dessous dans laquelle on enregistre que le dernier classeur ce qui ne change pas le nom du classeur.
Private Sub Workbook_Open()

debut:

Start = Timer
intervalle = 10

Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop

ThisWorkbook.SaveCopyAs "C:\Backups\" & ThisWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = False

Private Sub Workbook_Open()

debut:

Start = Timer
intervalle = 10

Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop

ThisWorkbook.SaveCopyAs "C:\Backups\" & ThisWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = False

Voilà j'espère avoit été assez clair.
Et merci encore
Bob