fonction alerte à une heure donnée

Bonjour,

Dans un module.

Sub auto_open()
heure = "9:00:00"
Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="tache"
End Sub

Sub tache()
msgbox "coucou"
End Sub
Autre exemple:

On veut afficher le 2eme onglet 5 secondes après l'ouverture du
classeur

Private Sub Workbook_Open()
délai = "00:00:5"
Application.OnTime EarliestTime:=Now + TimeValue(délai),
Procedure:="Tempo"
End Sub

Sub tempo()
Sheets(2).Activate
End Sub

Cordialement JB

Ci-joint une alarme réglable mais pour la journée.
http://cjoint.com/?ckkBpBpygg

Peut-on obtenir dans une cellule Excel une alerte tous les jours à 9 h, ou
déclencher qqchose à une heure donnée