Lista de selección filtrada en Listbox

Question

Me gustaría enumerar solo las selecciones filtradas en un cuadro de lista, todo funciona, excepto que no estoy seguro de qué cargar en el cuadro de lista.Este mi código

Private Sub btnRechercher_Click()
    Application.ScreenUpdating = False
    lstMoyens.Clear

    Sheets("TEST1").Select
    Range("Tableau4[[#Headers],[Famille]]").Select
    ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=4, Criteria1:="=" & cbFamille.SelText, Operator:=xlAnd

    Range("B1:C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Dim r As Range
    For Each r In Selection.Rows
        lstMoyens.AddItem (r.Cells(3) & " : " & r.Cells(4))
    Next r
End Sub

Answer 1

Esto funcionará para usted

Private Sub btnRechercher_Click()
    Application.ScreenUpdating = False
    lstMoyens.Clear

    Sheets("TEST1").Select
    Range("Tableau4[[#Headers],[Famille]]").Select
    ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=4, Criteria1:="=" & cbFamille.SelText, Operator:=xlAnd

    Range("B1:C1").Select
    Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeVisible).Select
    Dim r As Range
    For Each r In Selection.Rows
        lstMoyens.AddItem (r.Cells(3) & " : " & r.Cells(4))
    Next r
End Sub