Function split_97(chaine$, separateur$)
Dim tablo(), pos%, s$
s = Trim(chaine): ReDim tablo(0)
recurse:
pos = InStr(1, s, separateur)
If pos = 0 Then
tablo(UBound(tablo)) = s
split_97 = tablo()
Exit Function
Else
tablo(UBound(tablo)) = Left(s, pos - 1)
s = Right(s, Len(s) - pos)
ReDim Preserve tablo(UBound(tablo) + 1)
GoTo recurse
End If
End Function