Rs est une Source de Données
Sql est une chaîne
nIDGroupe est un entier

//Affecter ici nIDGroupe en fonction du champs de saisie.

Sql="SELECT DISTINCT
 IDPERSONNE As IDPersonne, 
 NOM AS Nom,PRENOM AS Prenom,
 CodePostal AS CODEPOSTAL
FROM PERSONNE, PERGRO
WHERE  PERGRO.IDPERSONNE = PERSONNE.IDPERSONNE "

SI nIDGroupe > 0 Alors
 Sql += "AND PERGRO.IDGroupe IN (" + nIDGroupe + ")"
FIN

SI PAS HExécuteRequêteSQL(rs,hRequêteDéfaut,sql) ALORS
	Erreur(HErreurInfo)
	RETOUR
FIN

HLitPremier(rs)
TANTQUE PAS HEnDehors(rs)              
 TableAjoute(Table4,Rs.IdPersonne+TAB+Rs.nom+TAB+Rs.prenom+TAB+Rs.codepostal)
 HLitSuivant(Rs)
FIN