autofilter values

Hi
after an autofilter,
(Selection.AutoFilter field:= 3, Criteria1:="=X")

I will retrieve all "X" under the 1cEcto (sheet looks like below !!)
(A) (B) (c)
1) B1=SUBTOTAL(3;A:A)
2)AHC Batch 1cEcto
3)001 05
4)002 06 X
5)003 01
6)004 01 X

How could I find all (A) related
nb_bout_IDBS_trouvées = Worksheets("IDBS").Range("B1").Value
For recherche_bout = 1 To nb_bout_IDBS_trouvées

AHC_IDBS = Worksheets("IDBS").Cells(recherche_bout + 1, 1).Value
===> this last line does not work because I will retrie AHC_IDBS = 001 and
need to be 002 // next one will be 004