ColumnHead y mettre du texte

Bonsoir,

Je voudrais ajouter dans ma listbox2, un en-tête pour chacune de mes 2 colonnes.

Private Sub UserForm_Initialize()

ListBox2.Clear

derligH = Sheets("CUSTOM").Range("H" & Cells.Rows.Count).End(xlUp).Row
Set plageH = Sheets("CUSTOM").Range("H2:H" & derligH)

For Each CellH In plageH

With ListBox2
.ColumnCount = 2
.ColumnWidths = "2cm;1cm"
.ColumnHeads = True
End With

ListBox2.AddItem CellH.Value
ListBox2.List(ListBox2.ListCount - 1, 1) = CellH.Offset(0, 1).Value

Next CellH

J'ai rajouté le columnhead= true mais comment écrire dedans?
Dans l'en-tête de la colonne , je voudrais écrire "Model" et dans l'autre "Height"


Merci