XL 2016 Procédure de fermeture automatique de fichier

Bonjour à tous les forumers,

J'ai dans un fichier un code me permettant d'enregistrer et fermer un fichier inactif pendant un temps donné (ici 15minutes) :

MODULE

Option Explicit
Dim DownTime As Date
Sub SetTimer()
DownTime = Now + TimeValue("00:15:00")
Application.OnTime EarliestTime:=DownTime, _
Procedure:="ShutDown", Schedule:=True
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, _
Procedure:="ShutDown", Schedule:=False
On Error GoTo 0
End Sub
Sub ShutDown()
Application.DisplayAlerts = False
Workbooks("1.Suivi Sécurité Béthune F22.xlsm").Save
With ThisWorkbook
.Saved = True
.Close
End With
End Sub

THIS WORKBOOK

Option Explicit
Private Sub Workbook_Open()
Call SetTimer
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopTimer
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Call StopTimer
Call SetTimer
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Call StopTimer
Call SetTimer
End Sub


Lorsque ce fichier est ouvert, les fichiers excel que j'ouvre me donnent le message d'erreur en pièce jointe. Est-ce que je dois préciser dans les procédures qu'elles ne concernent que mon fichier concerné?

J'espère avoir été clair, sinon laissez-moi vos questions pour que je puisse y répondre.

Merci d'avance pour votre aide,

JPrev