Entêtes colonnes d'une listbox

Bonjour la communauté,

svp je souhaite sur ma listbox quand je clique sur le bouton recherche il m'affiche les résultats avec les entêtes de colonnes

merci d'avance

Bonjour,

à tester,

Private Sub CommandButton1_Click()
    Me.ListBox1.Clear

    Set Rng = Range("a:a")
    Set c = Rng.Find(Me.TextBox1.Value, LookIn:=xlValues)

    Me.ListBox1.List = Sheets("Feuil1").Range("A1:U1").Value

    If Not c Is Nothing Then
      premier = c.Address
      i = 1
      Do
        Me.ListBox1.AddItem

        Me.ListBox1.List(i, 0) = c.Offset(0, 12).Value
        Me.ListBox1.List(i, 1) = c.Offset(0, 0).Value
        Me.ListBox1.List(i, 2) = c.Offset(0, 1).Value
        Me.ListBox1.List(i, 3) = c.Offset(0, 2).Value
        Me.ListBox1.List(i, 4) = c.Offset(0, 3).Value
        Me.ListBox1.List(i, 5) = c.Offset(0, 8).Value
        Me.ListBox1.List(i, 6) = c.Offset(0, 10).Value

        Set c = Rng.FindNext(c)
        i = i + 1
      Loop While Not c Is Nothing And c.Address <> premier
    Else
    MsgBox "Aucune donnée", vbInformation, "Notification"
    End If    
End Sub