Function fonct(chaine As String)
Dim t, a, deb&, i&
deb = -1
t = Split(chaine)
For Each a In t
i = i + 1
If Left(a, 1) Like "[A-Z]" And deb = -1 Then deb = i - 1
If deb > -1 Then If Left(a, 1) Like "[A-Z]" Then e = i -iif(i>0, 1,0)
Next a
For i = deb To e
fonct = fonct & " " & t(i)
Next
End Function