Sub Enregistrer()
Static t 'mémorise la variable
On Error Resume Next
Application.OnTime t, "Enregistrer", , False 'RAZ
t = Now + 5 / 1440
If Not ThisWorkbook.Saved Then ThisWorkbook.Save 's'il y a eu des modifications
Application.OnTime t, "Enregistrer"
End Sub