let rec _Instanciation_Objet liste_element =
  match liste_element with
    [] -> ""
  | (identifiant, sonType)::liste_restante -> 
      match sonType with
        Objet(_) -> 
          "\t\tthis."^identifiant^" = "^identifiant^";\n"
          ^_Instanciation_Objet liste_restante
      | Constructeur(Construct(nom, _)) -> 
          "\t\tthis."^identifiant^" = new "^nom^"(this.$nom + \"."^identifiant^"\");\n"
          ^_Instanciation_Objet liste_restante
      | _ -> 
          _Instanciation_Objet liste_restante