tabEmail = split(email,"@")
if len(tabEmail(0))>4 then
email = "****" & right(tabEmail(0),len(tabEmail(0))-4)
else
email=""
for i=1 to len(tabEmail(0))
email=email & "*"
next
end if
email=email & "@" & tabEmail(1)
C'est fait un peu à l'arrache, il peut donc y avoir quelques fautes.