Afficher message d'erreur pour combobox excel

Bonsoir,
Sous Excel 2013 j'ai fait un conjugueur de verbes provençaux. Sur la feuil4 (Sesido) se trouve le formulaire de saisie, sur la feuil2 (Verbe) la liste des 14000 verbes référencés avec en regard de chacun les verbes de référence pour la conjugaison. Les autres feuilles (feuil1 (Counjugueson), feuil3 (Indicatiéu), feuil5 (Sujountiéu) et feuil6 (Coundiciounau-Emperatiéu) affichent les conjugaisons des verbes de référence.
Le principe de mon conjugueur est de rentrer un verbe dans la combobox1. Celui-ci est recherché dans la liste de la feuille "verbe" et affiche dans la textbox1 en dessous le verbe de référence. En cliquant sur le bouton adéquat (conjugaison complète, indicatif, subjonctif ou conditionnel-impératif, Excel affiche la conjugaison désirée du verbe de référence (ex : le verbe "coungela" se conjugue comme "abarbela" et en cliquant sur le bouton "Indicatiéu" s'affiche la conjugaison du verbe de référence "abarbela" à tous les temps de l'indicatif).
Tout cela marche parfaitement sauf quand on rentre un verbe qui ne figure pas dans la liste des 14000 verbes. Dans ce cas la textbox1 affiche un verbe de référence pour un verbe proche de celui entré dans la combobox1. J'aimerais quand on entre un verbe erroné que d'une part la textbox1 n'affiche rien et que d'autre part une msgbox apparaisse pour signifier que le verbe n'a pas été trouvé. Voici le code que j'ai fait pour recherche du verbe (qui fonctionne) et affichage de la msgbox (qui ne fonctionne pas) :
"Private Sub ComboBox1_Change()
v = ComboBox1.Text
ComboBox1.Text = UCase(ComboBox1.Text)
If v <> "" Then
With Sheets("Verbe")
Set c = .Columns(2).Find(v, , xlValues, xlWhole)
If Not c Is Nothing Then
TextBox1.Text = c.Offset(, 1).Value
Else If v <> c Then
MsgBox ("Désolé ! Verbe inconnu. Vérifiez l'orthographe")
ComboBox1.Text = " "
TextBox1.Text = " "
End If
End If
End With
End If

End Sub "

Quelqu'un a-t-il une idée de l'erreur commise et la solution pour y remédier ?
Merci d'avance