VBA - Extraction données selon critère

Bonjour à tous,

Ci-joint le fichier que j'ai essayé au maximum de reproduire à l'original :

(mettre n'importe quel lettre pour le inputbox)

Le but étant de dupliquer le fichier mais seulement avec les données du service concerné.

Il y a aussi le même code pour cette fois-ci extraire l'ensemble des services (1 fichier par service)

J'ai pris des bouts de code gauche à droite pour en arriver là, donc si vous avez des idées pour l'améliorer...

Actuellement, je suis bloquée car quand je copie un tableau structuré sur un nouveau fichier, les entêtes ne sont pas copiés.

Du coup l'actualisation du TCD ne fonctionne pas.

Ceci étant un exemple, les données et services étant beaucoup plus important.

Merci de votre aide

Bonjour,

voici un exemple,

Sub transfert()
Dim lignes_visibles  As Range
With ActiveSheet.ListObjects("Tableau1")
        Set objListRng = .HeaderRowRange
        objListRng.Copy Sheets("Feuil3").[A1]
        Set lignes_visibles = .DataBodyRange.SpecialCells(xlCellTypeVisible)
        lignes_visibles.Copy Sheets("Feuil3").[A2]
 End With
End Sub

Merci beaucoup !

Ça fonctionne