Double clic et récuperation code couleur

Bonjour tout le monde

je vous explique mon soucis dans ma feuil1 je double clic sur une cellule et celle ci se colore bien ! le soucis c'est que le code couleur doit etre récupere en cellule A1 car cette donné change selon une zone combiné

voila mon code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Interior.ColorIndex = 32 Then

Target.Interior.ColorIndex = xlNone

Else

Target.Interior.ColorIndex = 32

End If

Cancel = True

End Sub

donc 32 est la couleur bleu mais a la place de 32 je voudrais récupéré la valeur de la cellule A1 et c'est la que je bloque

je sais pas si c'est claire pour vous en tout cas merci a tout ceux qui me répondrons et bon Week end a tous

c'est bon j'ai trouver mon bonheur je suis vraiment une bille en vba lol la soluce en dessous

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Interior.ColorIndex = Range("A1") Then

Target.Interior.ColorIndex = xlNone

Else

Target.Interior.ColorIndex = Range("A1")

End If

Cancel = True

End Sub