Sub Flash()
'Incognito
Static i
i = i + 1
'Le clignotement
If [B23].Interior.ColorIndex = 6 Then
[B23].Interior.ColorIndex = 3 'fond rouge
[B23].Font.ColorIndex = 6 'caractères en jaune
Else
[B23].Interior.ColorIndex = 6 'fond jaune
[B23].Font.ColorIndex = 3 'caractères en rouge
End If
'Tant que le nombre de clignotements choisi n'est pas atteint(ici 2, ça suffira !) on continue
If i <= 2 Then
Application.OnTime Now + TimeValue("00:00:01"), "Flash"
Else
'Sinon, on revient à la mise ne forme par défaut de la cellule et on arrête tout
[B23].Interior.Color = 6634265
[B23].Font.Color = 65535
i = 0
End If
End Sub