Dim BlinkTime As Date
Public Sub Blink()
Dim c As Range
For Each c In Range("e1:Ce1").Cells 'Zone du clignotement
If c.Interior.ColorIndex = -4142 Then
If c.Value > 0 Then
c.Interior.ColorIndex = 3 'Red
Else
c.Interior.ColorIndex = 0
End If
Else
c.Interior.ColorIndex = 0
End If
Next c
BlinkTime = Now() + TimeValue("00:00:01") 'le temps du clignotement
Application.OnTime BlinkTime, "Blink"
End Sub
Sub ArretTimer()
On Error Resume Next
Application.OnTime BlinkTime, "Blink", , False
End Sub