Public Temps As Date
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime Temps, "Sauvegarde", Schedule:=False
End Sub
Private Sub Workbook_Open()
Sauvegarde
End Sub
Sub Sauvegarde()
ThisWorkbook.Save
Temps = Now + TimeValue("0:2:0")
Application.OnTime Temps, "Sauvegarde"
End Sub