Private Sub TextBox1_Change()
Const iLongeurLigne As Integer = 5 ' définit la longueur de la ligne (5 caractères)
With TextBox1
' Je traite différemment la première ligne des autres
If TextBox1.LineCount > 1 Then
' Ici je m'assure que la ligne est assez longue avant d'aller ds la boucle
If Len(Mid(.Text, Len(.Text) - iLongeurLigne, 5)) > 4 Then
' Traitement de les 5 dernier caract`res de la string au complet du textbox
For Item = 1 To iLongeurLigne
If Mid(.Text, Len(.Text) - Item, 1) = vbCr Then
bolCrFound = True
Exit For
End If
Next Item
' Si aucun retour de ligne n'a été détecté, un retour de ligne sera rajouté
If bolCrFound = False Then
.Value = .Value & vbCr
End If
End If
' Traitement de la première ligne
Else
If Len(.Text) = iLongeurLigne Then
' Ajoute un retour de ligne au bout
.Value = .Value & vbCr
End If
End If
End With
End Sub