Copier des lignes filtrées

Copier des lignes filtrées sous VBA

Bonjour à tous,

J'ai fait une petite macro (de débutant en VBA) qui fait des filtres sur plusieurs colonnes d'un tableau de données. Mon résultat se présente donc avec des lignes cachées (filtrées) et d'autres lignes visibles qui répondent aux conditions des filtres.

Je voudrais sélectionner avec ma macro les 10 premières lignes de mon résultat et de les copier dans une feuille de synthèse (voir la macro ci-bas). Mais l'ennui c'est qu'il prend en compte les lignes cachées et copie tout !

Y a t il moyen d'arranger ça ? merci d'avance

PS : dans mon exemple, la sélection des 10 premières lignes de mon résultat correspond à (Range("B2:M72").Select)

Range("B2:M72").Select
Selection.Copy
Sheets("SYNTHèSE").Select
Range("A153").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False