Private Sub Worksheet_Change(ByVal Target As Range)
Dim Mot As String, Col As Long
If Not Intersect([A:A], Target) Is Nothing Then
Application.EnableEvents = False
Mot = Target.Value
For Col = 1 To Len(Mot)
Cells(Target.Row, Col).Value = Mid(Mot, Col, 1)
Next Col
Application.EnableEvents = True
End If
End Sub