// Remplis la table comme voulu en fonciton des saisies...
TableSupprimeTout(Table)
POUR i=1 A max(duréeImmo,DuréeMob)
   // Ajoute la ligne
   TableaAjoute(Table)
   // Affecte la ligne
   SI i<=duréeImmo ALORS Table.AmmortImmo[i] = Sais_Immo
   SI i<=duréeMob ALORS Table.AmmortMob[i] = Sais_Mob
  Table.AmmortRepport[i] +=  Table.AmmortImmo[i]+Table.AmmortMob[i]
   // Ajout du montand précédent si i>1
   SI i>1 ALORS Table.AmmortRepport[i] +=  Table.AmmortRepport[i-1]
FIN