Supprimer les doublons dans une listbox

Bonjour,
Je travail sur une base de donnees ou je dois afficher une liste de formations sans doublons.
J'ai beau chercher comment faire mais j'ai pas su le faire.
Je voulais travailler avec des collections en insérant ce code apres avoir charger ma listbox mais ca ne m'aide pas :/

Private Sub Sample()
RemovelstDuplicates ctrlListNames
End Sub

Public Sub RemovelstDuplicates(lst As msforms.ListBox)
Dim i As Long, j As Long
With lst
For i = 0 To .ListCount - 1
For j = .ListCount - 1 To (i + 1) Step -1
If .List(j) = .List(i) Then
.RemoveItem j
End If
Next
Next
End With
End Sub

mon code pour remplir la listbox est le suivant:

Personne = UF_Profil_Edit1.TextBox_Nom & " " & UF_Profil_Edit1.TextBox_Prenom.Value
Set ws = ActiveWorkbook.Worksheets(Personne)
ActiveWorkbook.Worksheets(Personne).Activate
fin_col_Form_Init = ws.Cells(6, 256).End(xlToLeft).Column
UF_Profil_Edit1.ListBox_Form_Init.ColumnCount = 4
UF_Profil_Edit1.ListBox_Form_Init.ColumnWidths = "300;100;100;100"
For i = 2 To fin_col_Form_Init
UF_Profil_Edit1.ListBox_Form_Init.AddItem ws.Cells(6, i)
UF_Profil_Edit1.ListBox_Form_Init.List(UF_Profil_Edit1.ListBox_Form_Init.ListCount - 1, 1) = ws.Cells(7, i)
UF_Profil_Edit1.ListBox_Form_Init.List(UF_Profil_Edit1.ListBox_Form_Init.ListCount - 1, 2) = ws.Cells(8, i)
UF_Profil_Edit1.ListBox_Form_Init.List(UF_Profil_Edit1.ListBox_Form_Init.ListCount - 1, 3) = ws.Cells(9, i)
Next i

Sample
end sub