Function Lettres$(x$)
Dim liste$, i%, deb%
liste = "abcdefghijklmnopqrstuvwxyzàáâãäåòóôõöøèéêëìíîïùúûüÿñç"
x = x & " "
For i = 1 To Len(x)
If deb = 0 Then If InStr(liste, LCase(Mid(x, i, 1))) Then deb = i
If deb Then If InStr(liste, LCase(Mid(x, i, 1))) = 0 Then Lettres = Mid(x, deb, i - deb): Exit For
Next
End Function