PROCEDURE def_param( NomFichier est une chaîne = "Donnee")

sRubCléParcours est une chaîne

// on efface la table
TableSupprimeTout(Table_recherche)

// On active le filtre
sRubCléParcours = HFiltre(NomFichier, "Nom]'"+valNom+"'"...
+" ET Classes]'"+ValClasse+"'"...
+" ET Date]'"+ValDate+"'"...
+" ET Difficultes]'"+ValDifficultes+"'"...
+" ET Pai]'"+ValPai+"'"...
+" ET Suites]'"+ValSuites+"'"...
+" ET Suivi]'"+ValSuivi+"'")



// Parcours des enregistrements filtrés
HLitPremier(NomFichier,sRubCléParcours)

TANTQUE PAS HEnDehors()
	//remplir la table
	TableAjouteLigne(Table_recherche,{NomFichier + ".Nom"},...
	{NomFichier + ".Date"},...
	{NomFichier + ".classes"},...
	{NomFichier + ".Difficultes"},...
	{NomFichier + ".Pai"},...
	{NomFichier + ".Suivi"},...
	{NomFichier + ".Suites"})

	HLitSuivant(NomFichier, sRubCléParcours)


FIN

// On désactive le filtre
HDésactiveFiltre(NomFichier)