Function Premiers$(t$, n As Byte)
Dim s, i%, j%
t = Application.Trim(Replace(t, Chr(160), "")) 'caractères de code 160 et SUPPRESPACE
s = Split(t)
For i = 0 To UBound(s)
j = j + 1
If Left(s(i), 1) = "(" Then i = i + 1
Premiers = Premiers & " " & s(i)
If j = n Then Exit For
Next
Premiers = LTrim(Premiers)
End Function