Dim HeurePlani As Date
Sub Timer()
HeurePlani = Now + 10 / 86400
Application.OnTime HeurePlani, "Disparition"
End Sub
Sub Disparition()
MsgBox "tu as cliqué trop tard dans la case E9!"
End Sub
Sub StopTimer()
Application.OnTime HeurePlani, "Disparition", Schedule:=False
End Sub