let rec _Traitement_Var_Next liste_var =
match liste_var with
[] -> ""
| (id, Constructeur(Construct(_, _)))::liste_restante ->
"\t\tthis."^id^".save();\n"
^_Traitement_Var_Next liste_restante
| _::liste_restante ->
_Traitement_Var_Next liste_restante