Function N_Elem(xChaine, Nieme As Long, Optional xSepar = " ") As String
' Retourne le Nieme élément de la chaine xChaine avec comme séparateur xSepar
' si xSepar est omis, le séparateur est par défaut l'espace
' si le Nieme mot n'existe pas, la fonction retourne la chaine vide
Dim yWords
N_Elem = ""
yWords = Split(xChaine, xSepar)
If (Nieme - 1) >= LBound(yWords) And (Nieme - 1) <= UBound(yWords) Then N_Elem = yWords(Nieme - 1)
End Function