Tablo pour listbox 2 colonnes

Bonjour le Forum.
Sur les bases d'une macro permettant d'afficher les valeurs d'une seule colonne (feuil1) dans une listbox à une colonne j'ai bidouillé pour réaliser l'affichage de 2 colonnes (feuil1 col AM et AN en l'occurrence) dans listbox à 2 colonnes. Résultat : Néant
Ci dessous la macro en question.

Dim mondico
Dim a, fin, i As Integer
Set mondico = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
fin = .Range("AM" & .Rows.Count).End(xlUp).Row
a = .Range("AM7:AN" & fin)

For i = LBound(a) To UBound(a)
If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
Next i

With ListBox2
.ColumnCount = 2
.ColumnWidths = "40,40"
.List = mondico.keys
End With

Quel aménagement y a t-il lieu d'y apporter ?
Par MERCI
A+Daniel