tblVar est un tableau dynamique de 0 Chaines
Ind est un entier
sCondition est une chaine
Rs est une source de donnees
Sql est une chaine

//On remplie un tableau avec les valeurs voulues
TableauAjoute(tblVar, "Allergie")
TableauAjoute(tblVar, "Asthme")
TableauAjoute(tblVar, "Machine")

//On construit la condition
Pour Ind = 1 a Dimension( tblVar)
 sCondition += RC + "[Difficultés] LIKE '%" + tblVar[Ind] + "%' "
Fin

Si SansEspace(ValNom) <> "" Alors
  sCondition += " AND [ChampNom]='" + ValNom + "' "
Fin

Si SansEspace(ValEtc) <> "" Alors
  sCondition += " AND [ChampEtc]='" + ValEtc + "' "
Fin

//On construit la requête
Sql =
[
SELECT * 
FROM MaTable
WHERE @Condition
]

//On execute la requete
Sql = Remplace( Sql, "@sCondition", sCondition )
Si pas HExecuteRequeteSql( Rs, HRequeteDefaut, Sql ) Alors
  Erreur( HErreurInfo())
  Retour
Fin

POUR TOUS RS
  //Traitement des données ici
FIN