Bonsoir,
Je suis pas chez moi mais comme ça de tête voici une piste :
Dim machaine as string, nbcarac as byte
Dim tab () as string
machaine = Range ("A1").value
nbcarac = len(machaine)
Redim tab(nbcarac - 1)
y = 0
For i = 1 to nbcarac
vval = mid(machaine, i, 1)
tab(y) = vval
y = y + 1
Next i