--- rpl/src/instructions_w1.c	2013/03/10 17:01:05	1.75
+++ rpl/src/instructions_w1.c	2013/03/11 11:07:25	1.76
@@ -1310,6 +1310,16 @@ instruction_write(struct_processus *s_et
 			if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
 					== 'S')
 			{
+				if ((*s_objet_argument_2).type != LST)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_type_argument;
+					return;
+				}
+
 				if ((chaine = formateur_fichier(s_etat_processus,
 						s_objet_argument_2, (*((struct_fichier *)
 						(*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',
@@ -1344,6 +1354,34 @@ instruction_write(struct_processus *s_et
 			else if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
 					== 'D')
 			{
+				if ((*s_objet_argument_2).type != INT)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_type_argument;
+					return;
+				}
+
+				if (depilement(s_etat_processus, &((*s_etat_processus)
+						.l_base_pile), &s_objet_argument_3) == d_erreur)
+				{
+					(*s_etat_processus).erreur_execution = d_ex_manque_argument;
+					return;
+				}
+
+				if ((*s_objet_argument_3).type != LST)
+				{
+					liberation(s_etat_processus, s_objet_argument_3);
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_type_argument;
+					return;
+				}
+
 				if ((chaine = formateur_fichier(s_etat_processus,
 						s_objet_argument_2, (*((struct_fichier *)
 						(*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',
@@ -1357,6 +1395,16 @@ instruction_write(struct_processus *s_et
 			}
 			else // Fichiers indexés
 			{
+				if ((*s_objet_argument_2).type != LST)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_type_argument;
+					return;
+				}
+
 				if ((chaine = formateur_fichier(s_etat_processus,
 						s_objet_argument_2, (*((struct_fichier *)
 						(*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',