Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=Time_Enr, Procedure:="Enregistre", Schedule:=False
End Sub
Private Sub Workbook_Open()
Time_Enr = Now + TimeValue("00:05:00")
Application.OnTime Time_Enr, "Enregistre"
End Sub