Listbox selon choix combo designant colonne variable

Bonjour

je cherche via une combo à alimenter une listbox.

* La combo désigne sur quelle colonne rechercher les valeurs VRAI / FAUX

* La condition (si VRAI) alors j'intègre la ligne (seulement colonne A)

Exemple 1 : si je sélectionne FFF, la listbox contiendra :

Tata

Tete

Titi

Toto

Exemple 2 : si je sélectionne GGG, la listbox contiendra :

Tata

Tete

Toto

Voir le fichier ci-joint car c'est pas facile à expliquer

Merci d'avance

Bonjour,

Private Sub ComboBox1_Change()
    Dim k%, i%
    ListBox1.Clear
    k = ComboBox1.ListIndex + 4: i = 2
    If k >= 4 Then
        With Worksheets("Feuil1")
            Do While .Cells(i, k) <> ""
                If .Cells(i, k) Then ListBox1.AddItem .Cells(i, 1)
                i = i + 1
            Loop
        End With
    End If
End Sub

Cordialement.

Merci MFerrand, ça me semble parfait après plusieurs tests

Bonne journée