Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range("Base")
c.Interior.ColorIndex = xlNone
If c.Value = "FAE" Then
c.Interior.Color = RGB(0, 176, 240)
End If
If c.Value = "FACTURE" Then
c.Interior.Color = RGB(255, 192, 0)
End If
If c.Value = "EN COURS" Then
c.Interior.Color = RGB(242, 220, 0)
End If
If c.Value = "ANNULEE" Then
c.Interior.Color = RGB(255, 0, 0)
End If
Next c
End Sub