Zone sélectionnée à modifier différemment

Bonjour,

Voilà, mon problème, j'aimerai que quand on sélectionne une zone, elle la colore.

Si la sélection est dans la colonne B ça colore en rouge, si c'est dans la colonne C en bleu.

J'y arrive sauf si on sélectionne en même temps la colonne B et C, et vu que le point en haut à gauche de la sélection est dans la colonne B, ça colore la colonne C en rouge (Et pas en bleu)

J'aimerai soit que ça colore la sélection de la colonne C en bleu, soit ne la colore pas du tout, et seulement la colonne B.

Merci pour vos aides.

Cordialement, Psykaaw

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range, clr
    If Not Intersect(Target, Me.Range("B4:C9")) Is Nothing Then
        clr = Array(vbRed, vbBlue)
        Application.ScreenUpdating = False
        For Each c In Target.Cells
            If c.Interior.ColorIndex <> xlNone Then
                c.Interior.Color = xlNone
            Else
                c.Interior.Color = clr(c.Column - 2)
            End If
        Next c
    End If
End Sub

Cordialement.

Merci beaucoup