A l'aide d'un petit .exe je dois copier (N:N) DANS (A:A) puis suprimmer N:N

Mon bout de code ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim tabcol(5) As Variant
tabcol(0) = "N:N" 
tabcol(1) = "I:I" 
tabcol(2) = "K:K" 
tabcol(3) = "M:M" 
tabcol(4) = "G:G" 
compt = 65
For i = 0 To UBound(tabcol)
    Columns(tabcol(i)).Select 'ICI Erreur
    Selection.Copy
    Columns(Chr(compt) & ":" & Chr(compt)).Select
    ActiveSheet.Paste
    Columns(tabcol(i)).Select
    Selection.Delete Shift:=xlToLeft
    compt = compt + 1
Next
J'ai l'erreur
Erreur défini par l'application ou par l'objet.
Merci de votre aide