Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte
If Not Intersect(Range("C5:C" & Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row), Target) Is Nothing And Target.Count = 1 Then
For i = 5 To Cells(Rows.Count, 3).End(xlUp).Row
If Not Cells(i, 3) Like "*" & "NON PAYE" Then Cells(i, 3).Interior.Color = 65535
Next i
End If
End Sub