Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If prochain = 0 Then prochain = DateAdd("s", delai, Now)
If prochain <= Now Then
prochain = DateAdd("s", delai, Now)
Application.OnTime prochain, "sauve_qui_veut"
End If
End Sub