dans ce cas compte le nombre de valeur qui correspondent à ton critére de sélection dans ta colonne considérée
en supposant que ta plage de recherche est en colonne D1 à D65536
et x1 te donnera le nbre de cellules, donc de lignes aprés filtre
Set Plage = Range(Range('D1'), Range('D65536').End(xlUp))
x1 = Application.WorksheetFunction.CountIf(Plage, ICI TU METS CE QUE TU RECHERCHE)
msgbox 'x1'
amicalement
chantal