<HTML>J'ai trouvé ça sur un site sur EXCEL :
Sub timer()
For heur = 0 To 23
Application.OnTime TimeValue(heur & ":00:00"), "heures"
Application.OnTime TimeValue(heur & ":30:00"), "demi"
Application.OnTime TimeValue(heur & ":15:00"), "quart"
Application.OnTime TimeValue(heur & ":45:00"), "quart"
Next heur
End Sub
Cela peut peut-être te convenir ?</HTML>