Le portail francophone de la géomatique

Bonjour je cherche à remplir un tableau avec les titres des colonnes 13 jusqu'à la fin de ma table.

J'ai écrit ceci :
Sub main

redim tablo (tableinfo(pts2,TAB_INFO_NCOLS)-13)

  For i=0 to (tableinfo(pts2,TAB_INFO_NCOLS)-13)
  j=i+13
    tablo(i) = columninfo(pts2,"col"&j,col_info_name)
  Next
Call dialog1
End sub

sub dialog1
Dialog
    Title "Evolution entre la semaine 1 et la semaine 2"
    Width 300
    Height 200
    Position 150,150

    control statictext
    position 20,40
    width 60
    id 3
    title "Semaine 1"
      show

    control statictext
    position 100,40
    width 60
    id 4
    title "Semaine 2"
      show


    control listbox
        position 20,50
        width 60
        height 100
        title from variable tablo ()
        value i
       id 1

    control listbox
        position 100,50
        width 60
        height 100
        title from variable tablo ()
        value i
       id 2

    control cancelbutton
    title"Quitter"
    position 110, 180
    width 50
   id 5
   
    control button
    position 180, 90
    title "lancer la comparaison"
    id 6
    calling miseajourcolonne
    width 100
   
end sub

Or j'ai le message d'erreur suivant quand j'exécute le mbx : "valeur hors limite" et cela concerne la ligne :
tablo(i) = columninfo(pts2,"col"&j,col_info_name)

Merci pour votre aidre :-)