Sub Couleur()
Dim colData As Range, c As Range
Set colData = Range("A5:A" & Range("A19").End(xlUp).Row)
colData.Font.Bold = False
colData.Interior.ColorIndex = xlNone
For Each c In colData
If c.Value < 2.95 Then
c.Font.Bold = True
c.Interior.ColorIndex = 35
End If
Next c
End Sub