Application OnTime

Bonjour ,

J'ai installée un code VBA sur un fichier partagée afin que le fichier se referme automatiquement après 10 minutes d'inactivité. Mais le fichier beug, il s'ouvre et se referme à chaque fois, je pense que c'est un probléme au niveau du réglage sur le temps de ces 2 lignes :

Reste = Reste - TimeValue("00:10:00")

temps = Now + TimeValue("00:10:00")

Public HeureArrt
Public DŽlai
Public Reste
Public temps
Sub ProchainArret()
 HeureArrt = Now + DŽlai
 Reste = DŽlai
End Sub
Sub Fin()
  On Error Resume Next
  Application.OnTime temps, Procedure:="majHeure", Schedule:=False
  Application.OnTime HeureArrtt, Procedure:="Fin", Schedule:=False 'annule ŽvŽnnemennt
  ThisWorkbook.Close True
End Sub

Sub majHeure()
  On Error Resume Next
  Sheets(1).[A1] = Reste
  Reste = Reste - TimeValue("00:10:00")
  temps = Now + TimeValue("00:10:00")
  Application.OnTime temps, "majHeure"
End Sub

Private Sub Workbook_Open()
  DŽlai = TimeValue("00:10:00")
  Reste = DŽlai
  ProchainArret
  majHeure
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As range)
 On Error Resume Next
 Application.OnTime HeureArrt, Procedure:="Fin", Schedule:=False
 ProchainArret
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ThisWorkbook.Save
  On Error Resume Next
  Application.OnTime HeureArrt, Procedure:="Fin", Schedule:=False  ' annule ŽvŽnnement
  Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub

En vous remerciant.