En A1, il y a : "azertyuiop"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim chaine as string
chaine = Range("A1").value
Je voudrais suprimmer les 3 premieres lettres et les trois dernieres lettre de la chaine.

A la fin, la chaine doit etre egal a "rtyu" mais pas "___rtyu___" ou "___rtyu"

Merci d'avance. JC