profilListe est une ASUsrPrfCollection
monProfil est un ASUsrPrf
nb est un entier
HOuvreConnexion(AS400)
ASUserList(profilListe, AS400)
nb = profilListe.CollectionASUsrPrf..Occurrence
POUR indice= 1 A nb
monProfil = profilListe.CollectionASUsrPrf[indice]
TableauAjoute(gtabObjet, monProfil)
FIN
TableAffiche(TABLE_GtabObjet)