let rec _Traitement_param_Inconnu ce_parametre our_Hash_table =
match ce_parametre with
Parametre(nomModule, _, Inconnu, rang) ->
(match our_Hash_table with
[] -> (ce_parametre,false)
| cette_reference::liste_restante ->
(match cette_reference with
Autre(_,_,Constructeur(Construct(nomM, Ensemble(liste_constr)))) ->
if nomM = nomModule
then
_Modification_Param ce_parametre liste_constr rang
else
_Traitement_param_Inconnu ce_parametre liste_restante
| _ -> _Traitement_param_Inconnu ce_parametre liste_restante))
| Parametre(_) ->
raise MAUVAIS_PASSAGE_DE_PARAMETRES
| Autre(_) ->
raise MAUVAIS_PASSAGE_DE_PARAMETRES