Colorer une cellule en 1 clic

Bonjour, à tous.
Bon alors voila un de mes petits problèmes: je voudrai lorsque je clique sur une cellule elle se colore en rouge et lorsque je reclic dessus elle repasse en blanc.

Actuellement j'arrive à colorer une cellule en rouge en un clic, et je la repasse en blanc en double cliquant.
Mais je n'aime pas trop cette technique car quand je double clic j'active l'écriture dans la cellule.

Voici mon code actuel que j'ai placé dans la feuille 1:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Interior.ColorIndex = 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 3
End Sub

et voici se que sa donne :

https://www.cjoint.com/?dgln7yW3zo

Cordialement

Grobibi34