XL 2013 Coller une colonne dans un tableau à colonnes filtrées

[Aigle noir]

Bonjour
Merci de me montrer une piste pour coller une colonne dans un tableau dont les colonnes sont filtrées.
Merci

 

[Staple1600]

Bonjour le fil, Aigle noir

Deux pistes

Sub Test_A()
Dim l_oa As ListObject, l_ob As ListObject
Dim vArr
Set l_oa = Feuil1.ListObjects(1) ' 1 seul tableau sur la Feuil1
Set l_ob = Feuil2.ListObjects(1) ' 1 seul tableau sur la Feuil2
x = l_oa.ListColumns(2).DataBodyRange.Value ' colonne non filtrée
l_ob.ListColumns(3).DataBodyRange = vArr 'recopie de la colonne 2 vers la colonne 3
End Sub
Sub Test_B()
Dim l_oa As ListObject, l_ob As ListObject
Dim vArr
Set l_oa = Feuil1.ListObjects(1) ' 1 seul tableau sur la Feuil1
Set l_ob = Feuil2.ListObjects(1) ' 1 seul tableau sur la Feuil2
x = l_oa.ListColumns(2).DataBodyRange.SpecialCells(12).Value ' colonne filtrée
l_ob.ListColumns(3).DataBodyRange = vArr 'recopie de la colonne 2 vers la colonne 3
End Sub

La seconde posera un petit souci.

Testé avec un classeur avec deux feuilles : Feuil1 et Feuil2
Sur chaque feuille, il n'y qu'un seul tableau structuré (avec entêtes)
Le nombre de colonnes et de lignes n'est pas identiques pour les deux tableaux
(c'est volontaire pour voir ce qu'il passe lors des tests)