Function coupe(t As String, l As Integer)
Const n% = 8
Dim i%, j%
Dim s, u$
ReDim z$(1 To n)
s = Split(t & IIf(Right$(t, 1) = ".", "", "."), ".")
For i = 0 To UBound(s) - 1
j = j + 1
If j > n Then ReDim Preserve z(1 To j)
u = LTrim(s(i)) & IIf(s(i) = "", "", ".")
Do While Len(u) + Len(s(i + 1)) <= l And i < UBound(s) - 1
i = i + 1
u = u & s(i) & "."
Loop
z(j) = WorksheetFunction.Trim(u)
If Len(z(j)) > l Then z(j) = Left$(z(j), l - 1) & Chr(95)
Next
coupe = z
End Function