Function hache(texte$, ParamArray coupure())
Const l% = 255
Dim i%, x%, y%, z%, v$()
ReDim v(0)
If UBound(coupure) < 0 Then coupure = Array(ChrW(&HFEFF))
Do While Len(texte) > l
z = 0
For i = 0 To UBound(coupure)
x = -(Left$(texte, 1) = coupure(i))
Do
y = x: x = x + 1: x = InStr(x, texte, coupure(i))
Loop Until x = 0 Or x > l
If y > z Then z = y: If z = l Then Exit For
Next
If z = 0 Then z = l
v(UBound(v)) = Mid$(texte, 1, z)
texte = Mid$(texte, z + 1, Len(texte))
ReDim Preserve v(UBound(v) + 1)
Loop
v(UBound(v)) = texte
hache = v
End Function