let rec _Attribution_Arbre_Var nomModule liste_variable hashTable =
  match liste_variable with
    [] -> []
  | (identifiant, Constructeur(Construct(_)))
    ::liste_restante -> 
      (_Changer_Type_Var nomModule identifiant hashTable)::
      (_Attribution_Arbre_Var nomModule liste_restante hashTable)
  | cette_variable
    ::liste_restante -> 
      cette_variable::_Attribution_Arbre_Var nomModule liste_restante hashTable