let rec _Initialisation_Objet liste_element fonction =
  match liste_element with
    [] -> ""
  | (identifiant, sonType)::liste_restante -> 
      (match sonType with
        Constructeur(Construct(_, Ensemble(liste))) -> 
          "\t\tthis."^identifiant^"."^fonction^"("
          ^_Traitement_liste_constr liste^");\n"
          ^(_Initialisation_Objet liste_restante fonction)
      | _ -> 
          ""^(_Initialisation_Objet liste_restante fonction))