XL 2013 Code pour MFC d'un tableau selon 3 critères

Private Sub Worksheet_Couleur(ByVal Target As Range)
  If Not Intersect([Base], Target) Is Nothing Then
    Application.EnableEvents = False
    On Error Resume Next
    [COULEURS].Find(Target, LookAt:=xlWhole).Copy
    Target.PasteSpecial Paste:=xlPasteFormats
    Application.EnableEvents = True
  End If
End Sub

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