remplacer une partie d'une chaine

Bonjour le forum
j'espere que vous avez passez un bon WE.
bon retour au boulot et a l'enigme des macro excel 🙂
voila mon problem (enfin c deux problem lies):
le premier : je n voudrai recupere que les dernier caracter d'une chaine a partir du caracter '/':
j ai essaier cette macro mais je n recupere pas tout ce que je veut cad
pour 02/02/0222 je n ai que 222 au lieu de 0222
voila l a macro:

iderligne = Range('B65536').End(xlUp).Row
For X = 2 To iderligne
slash1 = InStr(Cells(X, 2), '-')
slash2 = InStr(slash1 + 1, Cells(X, 2), '-')
If slash2 = 0 Then
slash2 = Len(Cells(X, 2))
Cells(X, 2) = Mid(Cells(X, 2), slash1 + 1, slash2 - slash1)

Else
Cells(X, 2) = Mid(Cells(X, 2), slash1 + 1, slash2 - slash1 - 1)

End If
Next

La deuxieme partie:
a l aide d'une macro je voudrai modifier chaque celule contenant une chaine de caractere par une autre mais en ne modifiant qu'une partie de cette chaine delimite par le caracter '-'
Vaut mieux un exemple n'est ce pas?
alors voila j ai deux colonne A qui contient ma chaine et B qui contient le bout de la chaine a remplace:*


A ---------------------------------- -- B
122302-00-A000-STA-00010 ------------------ xx
122302-01-A000-STA-0001 ------------------ xx
122302-01-A000-STA-0001 ------------------ xx
122302-01-A000-STA-0001 ----------------- xx
122305-0222-S000-STA-0001 ------------------ xx
122305-0222-S000-STA-0001 ------------------ xx







le resultat sera alors
A
122302-xx-A000-STA+0001
122302-xx-A000-STA+0001
122302-xx-A000-STA+0001
122302-xx-A000-STA+0001
122305-xx-S000-STA+0001
122305-xx-S000-STA+0001

j ai fais un petit exemple excel