Function MotsEntre2Symboles(x$, symbole1$, symbole2$) As Long
'*************************************************************************
'Compte le nombre de mots entre 2 symboles ((), []...) dans une chaîne
'mapomme
'*************************************************************************
'- x : une chaîne
Dim s, n&, c
x = Replace(x, symbole1, "µ" & symbole1): x = Replace(x, symbole2, symbole2 & "µ")
s = Split(Application.Trim(x), "µ")
For Each c In s: n = n + IIf(Left(c, 1) = symbole1, UBound(Split(c)) + 1, 0): Next
MotsEntre2Symboles = n
End Function