Fonction qui renvoie le code hexadécimal d'une couleur

Function Couleur(target As Range, Optional fond As Integer)
'---- 0 ou absence du 2eme argument renvoie la couleur de remplissage 
'---- tout autre nombre renvoie la couleur de la police
'---- renvoi la couleur par défaut hors Mise En Forme Conditionnelle
Application.Volatile
If fond = 0 Then
Couleur = "&" & Application.Dec2Hex(target.Interior.Color, 6)
Else
Couleur = "&" & Application.Dec2Hex(target.Font.Color, 6)
End If
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For x = 1 To 56
Cells(x, 2).Interior.ColorIndex = x
Cells(x, 3) = "&H" & Application.Dec2Hex(Cells(x, 2).Interior.Color, 6)
Cells(x, 5).Interior.Color = Cells(x, 3)
Next x
Cancel = True
End Sub