nRechPers est un entier = Combo_Personnel
FichieVersEcran (Menu,Personnel)
HLitRecherche(Personnel,IDPersonnel,nRecherchePers)
SI HTrouve() ALORS
    FichierVersEcran()
    OuvreFille(Fiche_Personnel,nRechPers)
SINON
    Erreur("Aucune fiche ne correspond")
FIN