Ne pas copier les lignes masquées

Salut

une possibilité (sans la ligne1)
Range("a2:iv" & cells.Find("*", , , , ,
xlPrevious).Row).SpecialCells(xlCellTypeVisible).Copy ([Feuil1!a1])

a+
rural thierry
"Eric RENAUD" <erenaud@normandet.fr> a écrit dans le message de news:
#GZ#3Y96DHA.2524@TK2MSFTNGP11.phx.gbl...

Bonjour,

Je recherche un code qui me permettrait de copier uniquement les lignes
visibles, pour les copier dans un nouveau classeur.
D'avance merci

Bonjour Eric
avec la méthode SpecialCells :
ActiveSheet.SpecialCells(xlCellTypeVisible).Copy
Cordialement
Pascal

"Eric RENAUD" <erenaud@normandet.fr> a écrit dans le message de
news:%23GZ%233Y96DHA.2524@TK2MSFTNGP11.phx.gbl...

Bonjour,

Je recherche un code qui me permettrait de copier uniquement les lignes
visibles, pour les copier dans un nouveau classeur.
D'avance merci

Si c'est pour faire à la main, il y a la commande
edition>atteindre>cellules>visibles seulement
Si tu le fais souvent il y a un bouton prêt à coller dans
une barre d'outil dans le menu personnalisation, beaucoup
plus pratique !
Christophe Péjout.

-----Message d'origine-----
Bonjour,

Je recherche un code qui me permettrait de copier
uniquement les lignes

visibles, pour les copier dans un nouveau classeur.
D'avance merci


.