let rec _Generation_Module_Constructeur ce_module =
  match 
    ce_module.modTyp, 
    ce_module.declar 
  with
    (nomM, _), 
    Var(liste_variable)::_ -> 
      "\tpublic "^nomM^"(String $pere) \n\t{\n\t\tthis.$nom = $pere;\n"
      ^_Generation_Module_Constructeur_Element (liste_variable)
      ^"\t\tthis.EX = null;\n"
      ^"\t}\n\n"
  | _ , _ -> raise Declaration_non_valide