Public Sub Clign()
'ActiveSheet.Unprotect
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
With ThisWorkbook
fin = Range("I65536").End(xlUp).Row
For i = 1 To (fin - 1)
If Val(Cells(i + 1, 9)) < 5 And Val(Cells(i + 1, 9)) > -5 Then
With .Sheets("subcontracts").Range(Cells(i + 1, 9), Cells(i + 1, 9))
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, 0, 3)
End With
End If
Next i
'.Protect
End With
End Sub
Sub StopClign()
'ActiveSheet.Unprotect
On Error Resume Next
Application.OnTime Temps, "Clign", , False
With ThisWorkbook
.Sheets("subcontracts").Cells.Interior.ColorIndex = 19
'.Protect
End With
End Sub