Filtre automatique en VBA

[BNG]

J'ai développé une macro qui effectue la copie de données d'une feuille source à partir d'une spécifications sur une feuille cible.
Hors, il se peut que lors de la recherche sur la feuille source faite grâce à un filtre automatique il n'y ait aucune donnée à copier. Comme je fais la copie d'un RANGE "Ann:Jnn" par exemple, si le résultat du filtre est "aucun résultat" il copie toutes les données du RANGE. Cela fonctionne très bien si j'ai une réponse au filtre, il ne copie que la ligne résultat.
Comment compter le nombre de ligne résultat suite à l'application d'un filtre ?

Thx pour votre aide future ))

 

[Maxx]

Salut,

j'ai trouvé ça sur excelabo.net, un très bon site sur Excel et le VBA:

{
Si ton filtre est sur la colonne A :

=SOUS.TOTAL(3;A:A)-1

et en VBA :
MsgBox Application.Subtotal(3, [A:A]) - 1
}

Et c'est signé le célebre "Alain Vallon".

Voilà, en espérant que ça t'aide. Ciao!!