let rec _Modification_Element cet_element hashTableRef =
match hashTableRef with
[] -> cet_element
| cette_reference::liste_restante ->
match cette_reference, cet_element with
Autre(nomM, id, sonT), Autre(nomModule, identifiant, Inconnu) ->
if nomM = nomModule && identifiant = id && not(sonT = Inconnu)
then
Autre(nomModule, identifiant, sonT)
else
_Modification_Element cet_element liste_restante
| _, Autre(_) ->
_Modification_Element cet_element liste_restante
| _, _ ->
raise MAUVAIS_PASSAGE_DE_PARAMETRES