Re-,
Nad :
Edit : désolée felix, je ne te voyais plus en ligne.
Pas de soucis.....
Par contre, ta solution :
Format(Left(cel.Value, 6) & Right(cel.Value, 2), "@")
suppose un nombre de caractères égal à 10...
Maguet ne l'a pas dit.....
10 ou plus de caractères??????
d'où ma prudence.....
Format(Left(cel.Value, 6) & Right(cel.Value, Len(cel.Value) - 8), "@")
qui supprime uniquement les 7ème et 8ème valeurs de la cellulle
Bonne soirée
(du moins, si toi aussi, tu ne me réponds pas "toi aussi"........) Humour....