[COLOR="DarkSlateGray"][B]Sub toto()
Dim s&
With Range("E3:EE3")
.Offset(1, 0).Interior.ColorIndex = xlNone
For s = 1 To .Columns.Count
If Abs(.Cells(1, s).Value) > 14 Then Exit For
Next s
If s - 1 Then .Resize(1, s - 1).Offset(1, 0).Interior.ColorIndex = 36
End With
End Sub[/B][/COLOR]