let rec _Changer_Type_Var nomModule identifiant hashTable =
  match hashTable with
    [] ->  (identifiant, Inconnu)
  | Autre(nomM, id, sonType)::liste_restante ->
      if nomM = nomModule && id = identifiant then
        (identifiant, sonType)
      else
        _Changer_Type_Var nomModule identifiant liste_restante
  | _::liste_restante -> 
      _Changer_Type_Var nomModule identifiant liste_restante