Macro MsgBox quand l'heure attendu est atteinte

Bonjour,

J'ai un fichier excel avec une macro qui actualise l'heure chaque seconde dans une cellule. Voila la macro :

"

Dim bstop As Boolean
Dim HeureProchainAppel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnc3
End Sub

Private Sub Workbook_Open()
HorlogeEnc3
End Sub

Sub HorlogeEnc3()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment.
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnc3", Schedule:=False
Exit Sub
End If

Sheets("feuil1").Range("J2").Value = Format(Now, "HH:MM:SS")

'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnc3", False

End Sub

"

J'aimerais savoir si il était possible que lorsque l'heure qui s'actualise atteint l'heure attendue dans une cellule un msgbox se lance.

Merci d'avance j'ai essayer plusieurs choses sans succès.

Salut Ducat,

l'heure d'ouverture + 30" du fichier joint s'inscrit en [A1] : y'a plus qu'à attendre le compte-à-rebours...

A+