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