let rec _Remplir_Hash_Assign nomModule liste_assign =
  match liste_assign with 
    [] -> []
  | cet_assign::liste_restante -> 
      match cet_assign with
      |(_, sonExpr) -> 
          (_Remplir_Hash_Expr nomModule sonExpr)
          @_Remplir_Hash_Assign nomModule liste_restante