let rec _Remplir_Hash_Define nomModule liste_define =
  match liste_define with
    [] -> []
  | (id, Defini(expr))::liste_restante -> 
      Autre(nomModule, id, Defini(expr))::
      ((_Remplir_Hash_Expr nomModule expr)
       @(_Remplir_Hash_Define nomModule liste_restante))
  | _::_ -> raise Cas_impossible