Une cellule = 1 caractère (En VBA)

Bonsoir.

Je souhaiterai faire ressortir tous les caractères d'un mot ou d'un texte contenu dans une cellule.

Chaque caractère doit se placer dans la même colonne mais une ligne en dessous.

Par exemple en B2, on a le mot: "machin-truc"

Je voudrai qu'en A1, il y ait le premier caractère qui est donc un "m"

En A2, la lettre "a"

En A3, la lettre "c"

etc...

En A12, la lettre "c"

Je sais le faire par formule, mais je voudrai savoir comment extraire un caractère en VBA.

Par avance merci.

Bonjour pass-pass,

Regarde du côté de la fonction Mid.

Bonjour vba-new

Rien de mieux qu'une recherche par soi-même quand on sait quoi chercher.

J'ai également du regarder du côté de "Len" pour compter le nombre de caractères du mot. Voici le code obtenu.

Sub caractere()
Dim mot As String
Dim nbcar_mot As Integer
mot = Range("E2")
nbcar_mot = Len(mot)
For i = 2 To nbcar_mot + 1
Cells(i, 1) = Mid(mot, i - 1, 1)
Next i
End Sub

Merci.