let rec _Recherche_Type_Expr nomModule id our_Hash_table =
  match our_Hash_table with
    [] -> (Varia(id, Inconnu), false)
  | Autre(nomM, identifiant, sonT)::liste_restante -> 
      if nomM = nomModule && id = identifiant 
      then 
        (Varia(id,sonT),true
      else 
        _Recherche_Type_Expr nomModule id liste_restante
  |  _::liste_restante -> 
      _Recherche_Type_Expr nomModule id liste_restante