Extraction des chaines de carateres

Bonjour,

J'ai une colonne de références du type : ABS050TX40-60S et je souhaiterai la décomposer sur les colonnes de droite de cette façon : ABS / 050 / TX / 40 / 60 / S
en sachant que sur mes 11 000 références, le nombre de lettre ou chiffre varie.

j'ai trouvé comment extraire les chaines numériques ou alphanumériques mais pas les 2 en même temps :

Sub ExtractionChiffre_Lettres()

j = 1
While (Cells(j, 1).Value <> "")

'Extraction des chaines numériques :
For i = 1 To rng.Characters.Count
If IsNumeric(rng.Characters(i, 1).Text) Then
A = i
Do While IsNumeric(rng.Characters(A, 1).Text)
temp = temp & rng.Characters(A, 1).Text
A = A + 1
Loop
j = j + 1
Cells(1, j) = temp
i = A
temp = ""
End If
Next

'Extraction des chaines alphanumériques :
For i = 1 To rng.Characters.Count
If Not IsNumeric(rng.Characters(i, 1).Text) Then
A = i
Do While Not IsNumeric(rng.Characters(A, 1).Text)
temp = temp & rng.Characters(A, 1).Text
A = A + 1
Loop
j = j + 1
Cells(1, j) = temp
i = A
temp = ""
End If

Next

End Sub


et en plus, la 2eme action écrase la 1ere... et cela ne fonctionne que sur la cellule A1, pas sur toute la colonne :(

Quelqu'un aurait-il une solution ?



Merci d'avance !