déclarer une var tableau dont on ne connaît pas la taille

dim taille_tableau%
...
' on charge la taille selon les besoins
taille_tableau% = 205
on supprime le tableau s'il existe déjà
if variable("mon_tableau%")=1 then delete mon_tableau%
' on crée le tableau
dim tableau%(taille_tableau%)

dim i%,n%, taille_tableau% : taille_tableau% = 30
dim mon_tableau%(taille_tableau%)
...
' on charge le tableau.
...
' on veut l'agrandir:
dim sauvegarde_tableau%(taille_tableau%)
for i%=0 to taille_tableau%
  sauvegarde_tableau%(i%) = mon_tableau%(i%)
next i%
delete mon_tableau%
n% = 390
dim mon_tableau%(n%)
for i%=0 to taille_tableau%
  mon_tableau%(i%) = sauvegarde_tableau%(i%)
next i%
delete sauvegarde_tableau%
taille_tableau% = n%
...

' Routine de recherche d'un élément (r$) dans un fichier pour en extraire
' la ligne complète, suivant sa position (pos_r) dans la ligne.Cette ligne
' est inscite dans un nouveau dlist. La routine vérifie toutes les lignes de fc$

dim r$:r$="Jean Claude":' C'est l'élément à rechercher dans fc$
dim pos_r:pos_r=3:' C'est la position de l'élément sur la ligne
label rsf,rech_string_fic:' les label(s)

dim a,a$,b$,e$,ls,n,n1,n2,nba,nbe,s$:' variables pour dec_string
s$="|":label dec_string

width 0,1040:list 1:width 1,500:height 1,200:label resultat:' juste pour présenter le résultat
list 90:width 90,500:left 90,520:' pour travailler sur le fichier fc$
list 91:width 91,500:top 91,220:width 91,500

dim fc$:fc$="test.txt":' fichier de test
label cre_fich:gosub cre_fich: ' création du fichier
gosub rech_string_fic:' on fait la recherche

END: ' _________________________________________________________________________
rech_string_fic:
file_load 90,fc$
for n=1 to count(90)
a$=item_read$(90,n)
nba=0:ls=len(a$):a=instr(a$,s$):b$=a$
e$=mid$(a$,1,a-1):if pos_r=1 then goto rsf
nba=1
repeat
    ls=ls-a:b$=mid$(b$,a+1,ls):a=instr(b$,s$):nba=nba+1
    if a=0
      e$=b$
    else
      e$=mid$(b$,1,a-1)
    end_if
until nba=pos_r
rsf:
if e$=r$ then item_add 91,a$
next n
if count(91)=0 then message "Rien trouvé"
message " il y a "+str$(count(91))+" résultats"
for n1=1 to count(91)
a$=item_read$(91,n1)
gosub dec_string
gosub resultat
next n1
return
' ====================== Pour afficher le résultat =============================
resultat:
for n2=1 to nbe
  item_add 1,element$(n2)
next n2
return
' ===============  Routine de découpage des éléments d'un string ===============
dec_string:
nba=0:ls=len(a$):a=instr(a$,s$):b$=a$
repeat:' boucle pour compter le nb de s$ dans a$
  ls=ls-a:b$=mid$(b$,a+1,ls):a=instr(b$,s$):nba=nba+1
until a=0:nbe=nba+1:if variable ("element$")=0 then dim element$(nbe):' création d'une variable par éléments => element$(n)
for n=1 to nba:' boucle de fabrication de element$(n)
  ls=len(a$):a=instr(a$,s$): element$(n)=mid$(a$,1,a-1):a$=mid$(a$,a+1,ls):element$(n+1)=a$
next n:return
' ______________________________________________________________________________
cre_fich:
if file_exists(fc$)=1 then return
file_open_write 1,fc$
file_writeln 1,"01|DUPOND|Jean Marie|123 rue de la paix|75000|PARIS"
file_writeln 1,"02|DURAND|Jean Claude|456 rue St Martin|06000|NICE"
file_writeln 1,"03|MARTIN|Maurice|Clinchamps|61000|ALENCON"
file_writeln 1,"04|D'ARC|Jeanne|Place du bucher|45000|ORLEANS"
file_writeln 1,"05|LEPLUBO|Jean Claude|14 avenue de la liberté|72100|LE MANS"
file_writeln 1,"06|DURAND|Victor|789 avenue de la république|72000|LE MANS"
file_close 1
' ______________________________________________________________________________

dim taille%, i%
dlist 1
file_load 1,"monfichier.txt"
taille% = count(1)
dim matable$(taille%)
for i%=1 to taille%
  matable$(i%) = item_read$(1,i%)
next i%
delete 1