temp est une chaine =""
IDFich est un entier

IDFich=HOuvre(Personnel)

SI IDFich<>-1 ALORS
    Htlipremier(Personnel,IDPersonnel)
    TantQue not Hendehors(Personnel)
        temp=Personnel.Nom+" "+Personnel.Prenom
        //Traitement...    
        HlitSuivant(Personne,IDPersonnel)
        ListeAjoute(Combo1,temp)
    FIN
FIN