Public Sub Clign()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
dim i as byte
for i = 3 to 100
if range (B & i ) > 10 then
With ThisWorkbook
With .Sheets("FEUIL1").Range("B3")
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, xlNone, 3)
End With
With .Sheets("Feuil1")
.Shapes("Alerte").Visible = Not .Shapes("Alerte").Visible
End With
next i
End Sub