sMemo est une chaîne
Ind est un entier

//On vide la table
TableSupprimeTout(TABLE_Table1)
//On rempli la table
//Ici EXPRESS_REQ doit être trié sur Rubrik1
FichierVersTableMémoire(TABLE_Table1, EXPRESS_REQ_Requête1")
//On récupère la valeur de la rupture de la 1iere ligne
//La colonne Rubrik1 peut être cachée
Ind = 1
sMemo = Rubrik1[Ind]	
On lit toutes les lignes de la table à partir de 2ieme ligne
BOUCLE
  Ind ++
  //Si on atteind la fin de la table
  Si Ind > TABLE_Table1..Occurence Alors
    //La table fini avec une ligne Rupture
    TableAjouteLigne(TABLE_Table1, sMemo )
    TABLE_Table1[Ind]..CouleurFond = RVB(205, 230, 255)
    TABLE_Table1[Ind]..Hauteur = 20	
    SORTIR  //On sort de la boucle fin de table atteinte
  FIN

  //Rubrik1 à changé
  SI Rubrik1[Ind] <> sMemo Alors //Nouvelle rubrique
    TableInsereLigne(TABLE_Table1, Ind + 1, sMemo )
    TABLE_Table1[Ind+1]..CouleurFond = RVB(205, 230, 255)
    TABLE_Table1[Ind+1]..Hauteur = 20	
    sMemo = Rubrik1[ind + 2] //On sauvegarde la nouvelle Rubrik1
    Ind ++ On se positionne sur la ligne ajoutée
  FIN
  Ind ++  //On passe à la ligne suivante
FIN