let rec _Existe_Deja_Dans_HashTable element hashTable =
  match hashTable with
    [] -> false
  | cet_element::liste_restante -> 
      (match element, cet_element with
        Parametre(nomModule, identifiant, sonT, _), Parametre(nomM, id, t, _) -> 
          if nomM = nomModule 
              && identifiant = id
              && sonT = t
          then
            true
          else
            _Existe_Deja_Dans_HashTable element liste_restante
      | Autre(nomModule, identifiant, sonT), Autre(nomM, id, t) ->
          if nomM = nomModule 
              && identifiant = id 
              && sonT = t
          then
            true
          else
            _Existe_Deja_Dans_HashTable element liste_restante
      | _, _ -> _Existe_Deja_Dans_HashTable element liste_restante)