Ajout donnée dans une liste VBA Excel 2003

Bonjour,

J'ai un petit souci d'ajout de données saisies dans une liste modifiable d'un useform.
Ma liste de villes est sur une feuille Excel. L'utilisateur peut soit sélectionner une ville, soit en saisir une si elle n'existe pas encore.
Ça fonctionne très bien... si "find" ne trouve aucune occurrence de la ville saisie.

Ex : si l'utilisateur saisi "Tombouctou" (ville qui n'existe pas dans la liste) mais qu'une ville s'appelle "Villeneuve lès Tombouctou", la macro n'ajoute pas "Tombouctou".
Par contre s'il n'y a nul part l'occurrence Tombouctou, la macro l'ajoute à la liste.

Voici mon code :

'Ajout d'une ville
Set Ws2 = Worksheets("Listes")
    Workbooks("Saisie.xls").Activate
    Sheets("Listes").Select
Set v = Ws2.Cells.Find(lstVilles.Value, LookIn:=xlValues)
If v Is Nothing Then
    txtMessage = ""
    Application.StatusBar = False
    no_ligne = Range("B65536").End(xlUp).Row + 1
    Cells(no_ligne, 2) = lstVilles.Value
    Workbooks("Saisie.xls").Activate
    Sheets("Listes").Select
    Range("B2", Range("B2").End(xlDown)).Select
    ActiveWorkbook.Names.Add Name:="Liste_Villes", RefersTo:=Selection
    Columns("B:B").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
    MsgBox "La ville ''" & lstVilles.Value & "'' a été ajouté à la liste des villes.", vbInformation, "Nouvelle ville"
End If

Quelqu'un a-til une idée de la façon de faire ?

Merci d'avance