If InStr(Left(Texte, i - 1), Mid(Texte, i, 1)) = 0 Then
Désolé, pas trop le temps de faire la fusion entre mon dernier fichier et toutes les versions des solutions aujourd'hui...
viens juste de trouver un moment !!
Il n'y a plus (sauf miracle) que la derniere mouture de l'hyper génial Tototiti à retenir