Dim ligne() As String 'on redimensionne le tableau par rapport à la longueur de ta chaine ReDim ligne(Len(tachaine)) 'là tu insères chaque caractère de ta chaine dans une cellule de ton tableau For i = 0 to Len(tachaine) - 1 ligne(i) = Mid(tachaine, i + 1, 1) Next i