Excel : Colorer une plage de cellule avec une

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cel1 As Range, cel2 As Range
    If Intersect(Target, Range("ZoneCouleur")) Is Nothing Then Exit Sub ' si zone non concernée fini
    Application.ScreenUpdating = False 'désactive rafraichissement écran
    For Each cel1 In Range("ZoneCouleur") ' pour chaque cellule de ZoneCouleur
        For Each cel2 In Range("Legende") ' et pour chaque cellule de Legende
            If cel1.Value = cel2.Value Then
                'si même valeur alors mettre couleur de la légende
                ' sur 4 lignes (+4 si légende se termine par D), et sur 3 colonnes
                cel1.Resize(4 + (Right(cel2.Value, 1) = "D") * -4, 3).Interior.ColorIndex = cel2.Interior.ColorIndex
            End If
        Next cel2
    Next cel1
    Application.ScreenUpdating = True ' rétablir rafraichissement écran
End Sub