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