remplacement d'un caractere par un autre

Bonjour

J'ai un nouveau probleme, dans ma cellule j'ai 10 caracteres et j'aimerai remplacer le 6 par un autre caractere. je n'arrive pas à le traduire en vba.:calim2:

voici un exemple :
90V0B00002 => 90V0B10002
91V0B90002 => 91V0B10002

Tous les caracteres peuvent être modifiés mais pas le 6ème qui est fixe.

Merci pour votre aide

En utilisant Mid ...?

Code:

---

1 2 3 4

Dim st As String st = Feuil1.Range("B2") Mid(st, 6, 1) = "1" Feuil1.Range("B2") = st

---

Code:

---

1 2 3 4 5 6 7 8 9

Sub Rempl() Dim Mot As String   With Sheets("Feuil5") 'Nom de feuille à adapter Mot = .Range("A1") Mid(Mot, 6, 1) = 1 'on remplace le 6ème caractère par 1 .Range("B1") = Mot End With End Sub

---

Merci

Salut
Merci a vous 2, je ne savais pas qu'il y avait une version de type instruction de Mid qui permet d'affecter une valeur a un élément d'une chaîne.
++
Qwaz