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