let _Generation_Module_Intitule ce_module =
  match 
    ce_module.modTyp, 
    ce_module.declar 
  with
    (nomM, _), Var(liste_variable)::_ -> 
      "public class "^nomM^" {\n\n\tprivate String $nom;\n\n"
      ^_Generation_Module_Intitule_Element liste_variable
      ^"\t"^nomM^" EX;\n\n"
  | _ , _ -> raise Declaration_non_valide