XL 2016 Découpage de texte

Sub test()
    Dim chaine$, nbchar&, T, Tc(), i&, a&
    
    chaine = "en considérant que les mots sont séparés par des espaces nbchar est la limite du nombre de caractères par lignes "
    chaine = chaine & "si ça dépasse la ligne fait moins de caractères et on ajoute une ligne"
    
    nbchar = 25
    T = Split(chaine, " ")
    a = 0
    ReDim Preserve Tc(0)
    For i = 0 To UBound(T)
        If Len(Tc(a) & T(i)) <= nbchar Then Tc(a) = Tc(a) & " " & T(i) Else i = i - 1: a = a + 1: ReDim Preserve Tc(0 To a)
    Next
    MsgBox Join(Tc, vbCrLf)
End Sub

Function maxCharbyrow(chaine$, Optional NombreDeCaracteres& = 10, Optional index& = 1000)
    Dim T, Tc(), i&, a&
    T = Split(chaine, " ")
    a = 0
    ReDim Preserve Tc(0)
    For i = 0 To UBound(T)
        If Len(T(i)) > NombreDeCaracteres Then MsgBox "il y a un mots plus grand que le nombrede caracteres demandé": maxCharbyrow = Array(False): Exit Function
        If Len(Tc(a) & T(i)) <= NombreDeCaracteres Then Tc(a) = Tc(a) & " " & T(i) Else i = i - 1: a = a + 1: ReDim Preserve Tc(0 To a)
    Next
    If index = 1000 Then maxCharbyrow = Tc Else maxCharbyrow = Tc(index)
End Function

Sub test()
    Dim chaine$, Tc
    chaine = "en considérant que les mots sont séparés par des espaces nbchar est la limite du nombre de caractères par lignes "
    chaine = chaine & "si ça dépasse la ligne fait moins de caractères et on ajoute une ligne"
    Tc = maxCharbyrow(chaine, 15) 'toutes les ligne sont dans Tc
    MsgBox Join(Tc, vbCrLf) 'apercu dans un message
End Sub