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