XL 2010 Mettre une couleur de remplissage dans un "Label"

Sub a()
Feuil1.Label1.BackColor = HexaColor(Range("A1"))
End Sub
Function HexaColor(Target As Range, Optional fond As Integer) As String
'Renvoie le code hexadécimal d'une couleur
'Lone-wolf
'---- 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
        HexaColor = "&H" & Application.Dec2Hex(Target.Interior.Color, 6)
        Else
        HexaColor = "&H" & Application.Dec2Hex(Target.Font.Color, 6)
    End If
End Function

Sub Fond_Police()
  With Worksheets("BTX").LabelmLparGr1
    If [b5].Interior.ColorIndex = xlColorIndexNone Then
      .BackStyle = fmBackStyleTransparent
    Else
      .BackStyle = fmBackStyleOpaque
      .BackColor = [b5].Interior.Color
    End If
    .ForeColor = [b5].Font.Color
  End With
End Sub

Comment faire en sorte pour que je redevienne content ?

        With ActiveSheet.Shapes.Range(Array("LabelmLparGr1", "LabelmLparGr2"))
                .BackColor = [A1].Interior.Color
                .ForeColor = IIf(Int([A1].Interior.Color / 256) Mod 256 > 128, vbBlack, vbWhite) 'adapte la couleur de la police à celle de la cellule
        End With

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim label
  If Target.Address = [A1].Address Then
    Cancel = True
    For Each label In Me.OLEObjects(Array("LabelmLparGr1", "LabelmLparGr2"))
      label.Object.BackColor = [A1].Interior.Color
      label.Object.ForeColor = IIf(Int([A1].Interior.Color / 256) Mod 256 > 128, vbBlack, vbWhite)
    Next label
  End If
End Sub

Sub a()
Dim Obj As OLEObject
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.label Then Obj.Object.BackColor = [A1].Interior.Color
Next
End Sub