Enregistrement automatique après 5 minutes inactivité clavier/souris

Public HeureArrêt
Sub ProchainArret()
 HeureArrêt = Now + TimeValue("00:02:00")
 Application.OnTime HeureArrêt, "Fin"
 Sheets(1).[A1]=HeureArrêt
End Sub

Sub Fin()
  On Error Resume Next
  Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False    'annule événnement
  ThisWorkbook.Close True
End Sub

Private Sub Workbook_Open()
 ProchainArret
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
  'ThisWorkbook.Saved = True
  On Error Resume Next
  Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False  ' annule événnement
End Sub

Private Sub workbook_open()
Application.OnTime TimeValue("00:05:00"), "test12"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.OnTime Now + TimeValue("00:05:00"), "test12", , Schedule:=False
Application.OnTime Now + TimeValue("00:05:00"), "test12"
End Sub

Private Sub test12()
For Each w In Application.Workbooks
w.Save
Next w
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Source As Range)
Attend
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Attend
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
On Error Resume Next
Application.OnTime temps, "Enregistre", , False
End Sub

Public temps 'mémorise la valeur

Sub Attend()
On Error Resume Next
Application.OnTime temps, "Enregistre", , False 'l'action précédente ne sera pas exécutée
temps = Now + 5 / 1440
Application.OnTime temps, "Enregistre"
End Sub

Sub Enregistre()
ThisWorkbook.Save
End Sub