Récupérer le résultat d'un filtre

Le principe de la macro actuelle est
sub maMacro()
ligne = 2
colonne =1
While Not IsEmpty(Cells(ligne, colonne))
If Rows(ligne).Hidden = False Then

je_fais_mon_traitement
End If

ligne = ligne +1
wend
end sub

Bonjour,

J'ai une colonne qui contient la liste des valeurs suivantes :

01
01
01
02
02
02

J'ai une macro qui récupère les lignes non vides. Elle les stocke dans une
une ListBox. Dans ce cas, j'ai 6 lignes
Si j'applique un filtre automatique sur la colonne en choisissant 01 par
exemple, je voudrais récupérer uniquement les lignes issues de ce
filtrage,

en l'occurrence, 01, 01, 01 et les stocker dans mon ListBox.

Comment adapter ma macro pour qu'elle ne me récupère que le résultat du
filtre??

Le principe de la macro actuelle est

sub maMacro()
ligne = 2
colonne =1
while not isEmpty(Cells(ligne,colonne).value
je_fais_mon_traitement
ligne = ligne +1
wend
end sub

Y a-t-il un moyen de savoir pour chaque ligne que je traite, si elle fait
partie des résultats du filtre. Si c'est le cas, je n'ai qu'une condition
à

ajouter, mais je ne sais pas comment faire ce test.

Merci