Private Sub CommandButton1_Click()
Dim x As Byte, ligne1 As Integer, ligne2 As Integer
ligne1 = 30
ligne2 = 15
For x = 1 To Len(TextBox1)
Sheets('Feuil1').Cells(ligne1, x + 19) = Mid(TextBox1, x, 1)
Sheets('Feuil1').Cells(ligne2, x + 2) = Mid(TextBox1, x, 1)
Next
End Sub