Copier des colonne spécifique d'un tableau

Bonjour,

Après plusieur recherche infructueuse j'essaye de créer un code me permettant de copier des colonnes d'un tableau existant sur une autre feuille avec la fonction Tabcol.

- le Tbld'origine se trouve une une feuille nommé et je souhaiterai copier 4 colonne de ce tableau sur un tableau Nommé TBl-suivis sur la Private Sub Worksheet_Activate()

après plusieur tentative je repars à zéro

j'aurai voulu quelque chose qui fonctionnerai et commencerai par ceci :

- Dim tabCols(WshSuivCmd), x, y, Z As Integer

je vous transferai un fichier d'ici peu