Aide clignotement cellule sous condition

Bonjour à tous, novice en programmation VBA,j'ai besoin d'aide sur une macro que j'ai "pompé" et adapté à une feuille de calcul exell.

Cette macro déclenche le clignotement de la cellule en fonction de l'heure affiché dans cette cellule.

Macro incriminé
Private Sub Worksheet_Calculate()
Vérif
End Sub

Private Sub Vérif()
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If VarType(Range("B29")) = VarType(ValPrec) Then _
If ValPrec = Range("B29") Then Exit Sub
If [B29] >= 0.177083333333333 And [B29] <= 0.177094907 Then
Const Texte As String = ""
For i = 1 To 5
Cells(29, 2).Font.ColorIndex = 4
Cells(29, 2).Interior.ColorIndex = 3
For n = 1 To 30
Start = Timer
Do While Timer < Start + 2 / 100
Loop
If n Mod 5 = 0 Then
Cells(29, 2).Interior.ColorIndex = xlNone
Cells(29, 2).Font.ColorIndex = 1
End If
Next n
Next i
Select Case MsgBox("Pensez à la coupure", vbOK + vbExclamation, "Temps de conduite")
Case vbOK
'procédure si click sur Ok
Case vbCancel
'procédure si click sur Annuler
Exit Sub
End Select
End If

End Sub

Je désirerais que cette macro se déclenche aussi lorsque l'heure dans la cellule affiche

cellule B29 >=04:20:00 et <= 04:20:01
cellule B29 >=04:25:00 et <= 04:25:01
cellule B29 >=04:30:00 et <= 04:30:01

Merci d'avance pour votre aide.