Réponse acceptée !
c'est pas le mien ^^
SplitNumberChars(ByVal sStr As String, ByVal iCut As Long, Optional RemoveVbCrLf As Boolean = False, _
Optional SeparChar As String = "-", Optional bUseMnemonic As Boolean = False) As String()
Suffit de faire :
Dim MesLignes40Caracteres() as string, i as long
MesLignes40Caracteres = SplitNumberChars(Text1.Text, 40)
for i = LBound(MesLignes40Caracteres) to UBound(MesLignes40Caracteres)
msgbox MesLignes40Caracteres(i)
next i
@++
le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA