function Ctl_Email(w_email){
w_erreur="N";

/* fonction controlant la saisie d'un e-mail */
/* recherche si saisie d'une adresse */
if (w_email != '')
 {
/* fonction controlant la saisie d'un e-mail */
// Suppression des blancs à l'avant de l'adresse mail
w_mot="";
for (i=0;i<w_email.length;i++)
{
 w_car=w_email.charAt(i);
 if (w_car != " ")
 {
  w_mot=w_email.substring(i,w_email.length);
  break;
 }
}
w_email=w_mot;

// Suppression des blancs à l'arrière de l'adresse mail
w_mot="";
for (w_email.length;i>=0;i--)
{
 w_car=w_email.charAt(i);
 if (w_car != " ")
 {
  w_mot=w_email.substring(0,w_email.length-i);
  break;
 }
}
w_email=w_mot;

// recherche d'un blanc au milieu de l'adresse mail
pos_blanc = w_email.indexOf(" ");

if (pos_blanc > 0)
 {
  mot="Adresse e-mail fausse, le caractère 'espace' est interdit dans une adresse mail ! \n\n Corrigez votre e-mail et re-validez.\n";
  window.alert(mot);
  w_erreur = "O";
 }

/* recherche de l'arobase */
pos_arobase=w_email.indexOf("@");
if (pos_arobase == -1)
 {
  window.alert("Adresse e-mail fausse, le caractère '@' est absent ! \n\n Corriger votre e-mail et re-valider.");
  w_erreur = "O";
 }

if (pos_arobase == 0)
 {
  window.alert("Adresse e-mail incomplète, vous n'avez pas saisi votre identifiant devant le '@' ! \n\n Corriger votre e-mail et re-valider.");
  w_erreur = "O";
 }


/* recherche caractère accentuée */
w_arobase=0;
for (i=0;i<w_email.length;i++)
{
 w_ind=0;
 w_car=w_email.charAt(i);
 if (w_car=="@")
 {
  w_arobase++;
 }
 if ((w_car=="é") || (w_car=="è") || (w_car=="à") || (w_car=="ç") || (w_car=="ê"))
 {
  w_ind=1;
 }
 if (w_ind==1)
  {
   window.alert("Vous avez saisi un '" + w_car + "' qui est interdit dans une adresse e-mail ! \n\n Corriger votre e-mail et re-valider.");
   w_erreur = "O";
  }
}

/* arobase en double */
if ((w_arobase > 1) & (w_erreur=="N"))
 {
  window.alert("Adresse e-mail fausse, le caractère '@' ne doit être présent qu'une fois ! \n\n Corriger votre e-mail et re-valider.");
  w_erreur = "O";
 }


/* recherche d'un '.' après l'arobase */
if (w_erreur=="N")
 {
  if (w_email.length > (pos_arobase+1))
   {
    w_mot=w_email.substring(pos_arobase+1);
    pos_point=w_mot.indexOf(".");
    /* il n'y a pas de point */
    if (pos_point == -1)
     {
      window.alert("Adresse e-mail incomplète, il manque un domaine (ex. : '.fr', '.com' ou autre) en fin d'adresse\nou vous avez oublié de saisir le '.' ! \n\n Corriger votre e-mail et re-valider.");
      w_erreur="O";
     }
    /* il n'y a rien entre le . et @ */
    if (pos_point == 0)
     {
      window.alert("Adresse e-mail incomplète, il manque un nom devant le domaine (ex. : 'truc.fr', 'truc.com' ou autre) ! \n\n Corriger votre e-mail et re-valider.");
      w_erreur="O";
     }

   }
  else
   {
    window.alert("Adresse e-mail incomplète, vous n'avez rien saisi après '@' ! \n\n Corriger votre e-mail et re-valider.");
    w_erreur="O";
   }
 }
}
if (w_erreur=="O")
{
 return 1;
}
else
{
 return 0;
}
 }