Function LettreAprèsCourse(ByVal Z As String) As String
Dim TSpl() As String, P&
TSpl = Split(" " & Z, " Course ")
For P = 1 To UBound(TSpl)
LettreAprèsCourse = Split(TSpl(P), " ")(0)
If Len(LettreAprèsCourse) = 1 Then Exit Function
Next P
LettreAprèsCourse = ""
End Function