[COLOR="DarkSlateGray"][B]Function découpe2(r$)
r = r & String(10, 4)
découpe2 = Split(IIf(Asc(r) = 91, "[", "") & Replace(r, "[", Chr(4) & "[", IIf(Asc(r) = 91, 2, 1)), Chr(4))
End Function
Function découpe(r$, i&)
découpe = découpe2(r$)(i - 1)
End Function[/B][/COLOR]