Dim B() As Byte Redim B(Len(MonTexte)) For r = 1 to Len(MonTexte) B(r - 1) = Mid(MonTexte, r, 1) Next r