// recherche de la fiche
srech est une chaîne
srech= recherche

FichierVersEcran(Menu,Produit)
HLitRecherche(Produit,référence,srech)
SI HTrouve() ALORS
	FichierVersEcran()
	OuvreFille(Fiche_Produit,srech)
	SINON
	Erreur("Aucun appareil ne correspond")
FIN