Coment coloriser des cellules en cliquant dessus

bonjour, j'ai eu la semaine dernier une reponse a ma question. Cette semaine j'aimerai pouvoir changer la couleur d'un cellule en cliquant dessus, jusque là pas de problem, par contre ce que j'aimerai faire c'est :

cellule blanche -> clic 1 devient bleu -> clic 2 devient vert -> clic 3 devient rouge -> clic 4 redevient blanche

et cela en ayant la possiblité de le faire sur des colonnes qui ne sont pas contigues

merci à vous tous qui savez

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Select Case Target.Interior.ColorIndex
        Case 2, xlNone: Target.Interior.ColorIndex = 5
        Case Is = 5: Target.Interior.ColorIndex = 4
        Case Is = 4: Target.Interior.ColorIndex = 3
        Case Is = 3: Target.Interior.ColorIndex = xlNone
    End Select
End Sub

merci cela fonctionne, encore merci c vraiment cool