let rec _Creation_table_hachage_VAR arbreSyntaxe =
  match arbreSyntaxe with 
    [] -> []
  | ce_module::liste_module_restante -> 
      match ce_module.modTyp with
        (nomModule, _) ->  
          match ce_module.declar with
            [] -> []
          | Var(liste_variable)::_ -> 
              (_Remplir_Hash_Var nomModule liste_variable)
              @_Creation_table_hachage_VAR liste_module_restante
          | _::_ -> raise Declaration_non_valide