Insérer une couleur sur un double-clic gauche

Bonjour à tous,

Mon problème est le suivant : j'aimerais sur un double-clic gauche sur une cellule (ex : cellule "B2"), insérer la couleur "jaune" dans cette cellule uniquement.

En vous remerciant pour votre aide.

Salutations,

Renaud D.

Bonjour

Code de Feuille pour aller-retour couleur

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("B2"), Target) Is Nothing Then
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 6, xlNone, 6)
    Cancel = True
    End If
End Sub

Cordialement

Merci Amadéus pour ta réponse.

J'aurais une question. A partir de ce qu'il a déjà été fait, serait-il possible de retrouver la couleur "blanche" dans la cellule "B2", uniquement en tapant dans celle-ci le symbole "*"? (cellule jaune en double-cliquant / cellule blanche en entrant le symbole "*")

Dans l'attente,

Salutations,

Renaud D.

Bonjour

2 codes en Feuil1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
Target.Interior.ColorIndex = 6
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
If Target = "*" Then Target.Interior.ColorIndex = xlNone
End If
End Sub

Cordialement

Merci beaucoup Amadéus pour ton aide.

Salutations,

Renaud D.