Option Explicit
Public RunWhen As Date
Sub FermerWbk()
ThisWorkbook.Close SaveChanges:=vbYes
End Sub
Sub StartTimer()
' Lancer un nouveau un timer
RunWhen = Now + TimeValue("00:05:00")
Application.OnTime RunWhen, "FermerWbk"
End Sub
Sub StopTimer()
On Error Resume Next
' Stoppe la procédure dans le délai
Application.OnTime EarliestTime:=RunWhen, Procedure:="FermerWbk", Schedule:=False
On Error GoTo 0
End Sub