C'est une question qui semble simple, mais quand même pas si évidente...

Voici un fichier exemple.

Je viens de trouver une réponse possible - et qui fonctionne pour moi - donc n'hésitez pas à modifier/compléter si vous voyez quelque chose d'incohérent.
La beauté de la chose réside dans sa simplicité (une ligne !)

On aura définit au préalable la variable "nom_tableau"

Ca nous donne donc ceci :

Wks_Feuille.ListObjects(nom_tableau).Range.SpecialCells(xlCellTypeVisible).Copy _
destination:=Workbooks.Add.Worksheets(1).Range("A1")


A bientôt

Sources : Walkenbach et ici.

Gaetan