Colorier une cellule suite à un clic

Bonjour,

J'ai un plage de cellule (a1:d20), où j'aimerais que suite à un clic sur la colonne A et C cela colorie la cellule en rouge et vert pour la B et D.

Merci pour vos réponses

Bonjour

Place ce code dans la feuille concernée (click droit sur le nom de l'onglet ==> Visualiser le code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A20,C1:C20")) Is Nothing Then
    With Target
        If .Column = 1 Then
            .Offset(0, 1).Interior.ColorIndex = 3
            .Offset(0, 3).Interior.ColorIndex = 43
        End If
        If .Column = 3 Then
            .Offset(0, -1).Interior.ColorIndex = 3
            .Offset(0, 1).Interior.ColorIndex = 43
        End If
    End With
End If
End Sub

Amicalement

Nad