Comment gérer les apostrophes dans HFiltre() ?

[ASG2012]

Comment gerer les apostrophes dans HFiltre() ?

voici le code

Code :

//Appel de la procedure Recherche_Fiche(Recherche_Fiche("L architecte")

FONCTION Recherche_Fiche(Emploi)

StF est une chaîne

StF = HFiltre(fiche,"ClefNom = "+Remplace(Emploi," ","\ ")+" ")
HLitPremier("fiche",StF)

Trouve = H.Trouve

HDesactiveFiltre("fiche")
RENVOYER Trouve