Problèmes de noob combobox

Private Sub UserForm_Initialize()
 
' ATTENTION
' Changer le numéro de colonne
Dim i As Integer
Dim data As Collection
Dim it
Set data = New Collection
 
    'Récupère les données MSN...
    For i = 1 To Sheets("data_triées").Range("B65536").End(xlUp).Row
        If Sheets("data_triées").Range("B" & i) <> "" Then
            On Error Resume Next
            data.Add Sheets("data_triées").Range("B" & i), CStr(Sheets("data_triées").Range("B" & i))
            On Error GoTo 0
        End If
    Next i
 
    'alimente la combobox
    For Each it In data
        Me.ComboBox1.AddItem it
    Next it
 
'        ComboBox1 = Sheets("data_triées").Range("B" & i)
'    '... filtre les doublons...
'        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("data_triées").Range("B" & i)
'    '... et filtre les cases vides
'        If Sheets("data_triées").Range("B" & i).Value <> "" Then Me.ComboBox1.AddItem Sheets("data_triées").Range("B" & i)
'    Next i
 
 
End Sub