Faire clignoter pendant 30 minutes

[Marc]

Bonsoir le forum,
Je reviens vers vous, suite à mon poste 'Boucle' dont je remercie très chaleureusement _Thierry et Didier mdF
Voilà je n'arrive pas à faire clignoter ma cellule durant 30 minutes, aussi, je suis à la recherche du code correspondant.

En vous remerciant tous

 

[Marc]

Bonjour à tous
Je reviens vers vous car je patauge toujours (c'est ma première macro en vb)
La macro ci-dessous a été fournie par _Thierry (que je remercie)
Et j'essaie de faire fonctionner la 2eme macro à partir de la, mais ca ne fonctionne pas. Pouvez-vous me dire ou je commet une erreur
En vous en remerciant

Sub LookingForRedCell()
Dim FirstCell As Range
Dim Cell As Range
Dim Plage As Range
Dim i As Byte
For Each Cell In Range('B5:H10')
If Cell = Range('B1') Then
Set FirstCell = Cell
Exit For
End If
Next

If FirstCell Is Nothing Then
MsgBox 'Date ' & Range('B1') & ' non trouvée, procédure avortée', vbCritical
Exit Sub
End If
Set Plage = Range(FirstCell.Offset(1, 0), ActiveCell.Offset(98, 0))
Clignotement
End Sub

Public Sub Clignotement()
Dim Tempo As Date
Dim Cell As Range
Static C As Boolean
C = Not C
Tempo = Now + TimeValue('00:00:01')
Range.FirstCell = Cell
Application.OnTime Tempo, 'Clignotement'
End Sub

Public Sub StopClign()
Dim Tempo
Dim Cell As Range
Application.OnTime Tempo, 'Clignotement', , False
Range.FirstCell = Cell
End Sub