remplir une listbox en sautant une colonne

Private Sub Cmbounité_Change()

    Dim oCollection As New Collection
    Dim I As Long
    Dim balan As Range
     
    
    ' Itération sur chaque cellule de c et appel de la procédure d'ajout
    For Each balan In Feuil4.Range("c2:c" & Feuil4.Range("c" & Rows.Count).End(xlUp).Row)
        If balan(1, 0).Value = Cmbounité.Value Then AjouterItem oCollection, balan[COLOR=Red][B].Offset(0, 1).Value[/B][/COLOR]
    Next balan
    [COLOR=Blue][B]For I = 1 To oCollection.Count
      Liste1.AddItem oCollection(I)
    Next[/B][/COLOR]
End Sub