Function Coupure(t$, maxi%)
Dim s, i%, x$, n%, a$()
t = Application.Trim(t) 'SUPPRESPACE
s = Split(t) 'séparateur l'espace
For i = 0 To UBound(s)
x = x & s(i) & " "
If Len(x) - 1 > maxi Then
n = n + 1
ReDim Preserve a(1 To n)
a(n) = Left(x, Len(x) - Len(s(i)) - 2)
i = i - 1
x = ""
End If
Next
If x <> "" Then n = n + 1: ReDim Preserve a(1 To n): a(n) = RTrim(x)
Coupure = a 'vecteut ligne
End Function