Hello jef59,
alors voici une petite explication :
Private Sub CommandButton1_Click()
drligne = Range("a" & Rows.Count).End(xlUp).Row 'Calcule le nb de ligne à traiter dans la colonne A
colonne = 2 'Numero indiquant à partir de quelle colonne la décomposition du mot commencera
For i = 1 To drligne 'donc ici on boucle de la 1ere ligne jusqu'a la derniere ligne remplie dans la colonne A
nb_lettre = Len(Range("a" & i)) 'determine le nb de caractere inscrit dans la cellule
For Z = 1 To nb_lettre 'on boucle du 1 er caractere au dernier du mot en question
Cells(i, colonne) = Mid(Range("a" & i), Z, 1) 'on inscrit la lettre dans la cellule fonction mid equivalent a stxt dans les fonctions excel
colonne = colonne + 1 ' j'incremente la colonne pour la prochaine lettre
Next Z
colonne = 2 'je réinitialise la colonne a 2 pour la prochaine décomposition du nouveau mot
Next i
End Sub
En espérant que ça soit plus clair pour toi