Changement couleur cellule double-clic

Bonjour,

Je débute en VBA et je galère à finaliser mon code.
Je souhaite changer la couleur des cellules E10, F10 et G10 en double cliquant dessus.
Je souhaite couleur 1 en blanc, couleur 2 en vert et couleur 3 en rouge.

Voici mon code qui fonctionne pour la cellule E10

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$E$10" Then Exit Sub
Application.EditDirectlyInCell = False
Select Case Target.Interior.ColorIndex
Case Is = xlNone 'rien
Target.Interior.ColorIndex = 4 ' vert
Case Is = 4 'vert
Target.Interior.ColorIndex = 3 'rouge
Case Else 'rouge ou toute autre couleur
Target.Interior.ColorIndex = xlNone
End Select
End Sub

Merci

bonjour,

une proposition

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("E10:G10")) Is Nothing Then Exit Sub
    Application.EditDirectlyInCell = False
    Select Case Target.Interior.ColorIndex
        Case Is = xlNone 'rien
            Target.Interior.ColorIndex = 4 ' vert
        Case Is = 4 'vert
            Target.Interior.ColorIndex = 3 'rouge
        Case Else 'rouge ou toute autre couleur
            Target.Interior.ColorIndex = xlNone
    End Select
End Sub

Merc h2so4 c'est ce que je voulais.

Bon dimanche !