Nom de colonne si cellule gras

Sub NomDesColonnesEnGras()
Const adresseColonnesTestées$ = "A:C"
Const adresseColonneRésultat$ = "D"
Dim plage As Range
Dim ligne As Range
Dim cellule As Range
Dim résultat As String
  With Worksheets(1)
    Set plage = Intersect(.UsedRange, .Range(adresseColonnesTestées)).Offset(1)
    For Each ligne In plage.Rows
      résultat = ""
      For Each cellule In ligne.Cells
        If cellule.Font.Bold = True Then
          If résultat = "" Then
            résultat = Split(cellule.Address, "$")(1)
          Else
            résultat = résultat & " & " & Split(cellule.Address, "$")(1)
          End If
        End If
        .Cells(cellule.Row, adresseColonneRésultat).Value = résultat
      Next cellule
    Next ligne
  End With
End Sub