Soustraction d'une grande liste

Bonjour à tous,

Désireuse de faire une soustraction de 2 listes.
Une liste dans la colonne A ( 3292 cellules) et l'autre dans la colonne B ( 159 cellules) avec un résultat dans la colonne C
Les données sont de type texte : Nom de villes
Dans la colonne C doivent apparaitre les villes figurante dans A moins celles de B
J'utilise excel 2003 🙂

Voilà le message d'erreur


Pour

Sub extrait()
x = 1
For Each Cel In Range("A2:A3292")
Set Cherch = Range("B2:B159").Find(Cel)
If Cherch Is Nothing Then
Range("C" & x) = Cel
x = x + 1
End If
Next
End Sub

Cliquez pour agrandir...

Et il me demande de débugger :



Il me sort quand même un résultat, mais incomplet puisque dans la colonne C, il s'arrête la ligne 2635 !!
Je sais que c'est incomplet car les villes sont triées par ordre alphabétique avant en A et on les retrouve en ordre alphabétique en C... et il s’arrête donc à la lettre R.

Quelqu'un a une solution ?

Merci