Vérifier si dernier mot saisi dans textbox existe dans la plage

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

Function EstDansListe(MotAChercher As String) As Boolean
    'On utilise la fonction Find pour savoir si le mot à chercher fait bien partie de la liste en colonne G
    Set c = Sheets("PARAME").Columns(7).Find(MotAChercher, LookIn:=xlValues)
    'Et si c'est le cas la fonction renvoie vrai
    EstDansListe = Not (c Is Nothing) And (MotAChercher <> "")
End Function