Combobox multi-colonnes sans doublons

Private Sub UserForm_Initialize()
Dim Coll As New Collection
Dim Lig As Integer
Dim Cellule As Range
Dim i As Byte
Dim Liste()
Lig = Sheets("BDD").Range("D65535").End(xlUp).Row + 1
ReDim Preserve Liste(0 To Lig, 0 To 1)
With ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "126,126"
    .List = Liste
        For i = 0 To Lig
            Set Cellule = Sheets("BDD").Cells(i + 2, 4)
            .List(i, 0) = CStr((Cellule))
            .List(i, 1) = Cellule.Row
        Next
End With
End Sub

Dim Coll As New Collection
Dim Cellule As Range
With Me.ComboBox1
.ColumnCount = 2
.ColumnWidths = "126,126"
End With
With Sheets("BDD")
  For Each Cellule In .Range("D2:D" & .Range("D65535").End(xlUp).Row + 1)
    On Error Resume Next
    Coll.Add Cellule, CStr(Cellule)
    If Err = 0 Then
        Me.ComboBox1.AddItem (CStr(Cellule))
        Me.ComboBox1.List(ComboBox1.ListCount - 1, 1) = Cellule.Row
    End If
    On Error GoTo 0
  Next Cellule
End With