Function DernierMot(Chaîne As String) As String
'On utilise la fonction InStrRev qui permet de trouver la position d'une chaîne dans une autre en partant de la fin
'En l'occurence, on regarde la position du dernier espace
PositionDernierEspace = InStrRev(Chaîne, " ", -1, vbTextCompare)
'Et on ne garde que les caractères qui se trouvent après ce dernier espace
DernierMot = Right(Chaîne, Len(Chaîne) - PositionDernierEspace)
End Function