function ValideEmailAdd(email_add) {
  if (email_add.length < 8) { // Test longueur min de l'adresse xx@yy.zz
    return false;
  }
  position_at = email_add.indexOf("@", 0);
  if (position_at < 1) { // Test longueur du champ xx >= 2
    return false;
  }
  if(email_add.lastIndexOf("@") != position_at) { // Un seul @
    return false;
  }
  position_lastpoint = email_add.indexOf(".", position_at);
  if (position_lastpoint == -1) { // Test s'il y a un "." après le "@"
    return false;
  }  
  if ((position_lastpoint-position_at-1) < 2) { // Test longueur champ yy >= 2
    return false;
  }
  if ((email_add.length-position_lastpoint-1) < 2) { // Test longueur zz >= 2
    return false;
  }
  return true;
} // end ValideEmailAdd