XL 2010 Changer la couleur de fond en fonction de la valeur

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SupRgn As Range
    Set SupRgn = Union(Range("A26:B27"), Range("E26:F27"))
        If Not Intersect(Range("C2:E20"), Target) Is Nothing Then
            For Each rgArea In SupRgn
                If Target.Value = rgArea.Value Then
                    With Target.Interior
                        .Pattern = rgArea.Offset(, 1).Interior.Pattern
                        .PatternColorIndex = rgArea.Offset(, 1).Interior.PatternColorIndex
                        .Color = rgArea.Offset(, 1).Interior.Color
                        .TintAndShade = rgArea.Offset(, 1).Interior.TintAndShade
                        .PatternTintAndShade = rgArea.Offset(, 1).Interior.PatternTintAndShade
                    End With
                    Exit For
                End If
            Next rgArea
        End If
End Sub

'Macro pour colorer le fond des cellules suivant valeurs
Sub CouleurFond(xPlage, ParamArray RefCoul())
   ' xplage    => la plage dont on doit colorer le fond sous conditions
   ' RefCoul   => les différentes plages contenant les mots-clefs
Dim dico, x, y, old
   old = Application.ScreenUpdating: Application.ScreenUpdating = False    'on bloque l'affichage
   Set dico = CreateObject("scripting.dictionary")    'dictionaire des termes à rechercher avec leur couleur de fond
   xPlage.Interior.ColorIndex = xlColorIndexNone      'le fond de la plage à colorer est mis à aucun remplissage
   For Each x In RefCoul      'pour chaque zone de mots-clefs
      For Each y In x         'pour chaque cellule de mots-clefs de la zone x en cours d'examen
         'si la cellule y est non vide, on ajoute au dico le texte de la cellule associé avec sa couleur de fond
         If Len(y) > 0 Then dico(CStr(y)) = y.Offset(, 1).Interior.Color
      Next y
   Next x
  
   For Each x In xPlage       'pour chaque cellule x de la plage à colorer
      'si le texte de la cellule est non vide et s'il est dans dico alors on applique la couleur de fond
      If x <> "" Then If dico.exists(CStr(x)) Then x.Interior.Color = dico(CStr(x))
   Next x
   Application.ScreenUpdating = old    'on remet l'affichage à son statut avant la macro
End Sub

Sub Taquinerie_A()
'ici selection = TCD
CouleurFond Selection, Selection
End Sub
Sub Taquinerie_B()
'ici selection = Shape
CouleurFond Selection, Selection
End Sub

   ' Début de la verrue dite "Verrue de staple1600"
   If TypeName(xPlage) <> "Range" Then Exit Sub
   For Each x In RefCoul
      If TypeName(x) <> "Range" Then Exit Sub
   Next x
   ' Fin de la verrue dite "Verrue de staple1600"