Selection contenu filtre sans la barre des titres

Bonjour,

Pourrais-je avoir un code qui sélectionne les cellules résultantes d'un filtre sans avoir dans la sélection la ligne contenant les filtres ?

Bonjour,

si les données sont sous un format tableau,

Sub transfert()
Dim lignes_visibles  As Range
With Sheets("Feuil1").ListObjects("Tableau1")
    Set lignes_visibles = .DataBodyRange.SpecialCells(xlCellTypeVisible)
    lignes_visibles.Copy Sheets("Feuil2").[A2]
End With
End Sub