Recopie dans un tableau

Bonjour, est-ce que quelqu'un sait me donner ou corriger mon algo vers le mieux ?
Je doit faire:
Lire :Ligne dans la liste Box: IceBerg Arnold;12;14;16;9;
On recopie dans la ligne d'un tableau: 12 14 16 9 étants des entiers (chaque nombre dans une case biensur).
J'ai fais, mais quand je l'ai programmer apparament ca ne va pas :/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'Entier' ligne, colone, compteur
'chaîne' sCote, Str_Ligne
'Tableau' Tableau 'indices'[20][4] 'de' 'entier' 
 
 
   'pour' ligne 'de' 0 'à' NomEtudiant 'faire'
 
          Str_Ligne <- listBox(Ligne)
          compteur <- 0
          colone <- 1
 
              'répéter'
                 sCote <- ""
                 compteur <- compteur+1
                   'si' Str_Ligne[compteur]=";" 'alors'
                          compteur <- compteur+1
                            'si' Str_Ligne[compteur] = ";" 'alors'
                                Tableau[ligne][colone] = 0
                                colone <- colone+1
                                  'sinon'
                                     'tantque' not (Str_Ligne[compteur]=";") 'faire'
                                          sCote <- sCote + Str_Ligne[compteur]
                                          compteur <- compteur+1
                                        'ftant'
                                           Tableau[ligne][colone] = entier(sCote)
                              'fsi' 
 
                 'jusqu a' colone > 4
           'fpour'

http://www.developpez.net/forums/viewtopic.php?t=422768

Merci d'avance