Problème double boucle vba

Bonjour,
J'ai fait une double boucle sur VBA pour chercher à convertir des données.
Dans ma colonne A j'ai une liste de données selon une certaine nomenclature, je veux leurs correspondance dans la colonne B pour chaque ligne.

Dans la colonne C et D j'ai l'ancienne nomenclature et la nouvelle cote à cote, donc ma clef de référence.

Je demande donc à VBA de regarder quand il trouve le même numéro que la cellule iA dans la colonne C, qu'il regarde alors ce qu'il y a dans la meme ligne dans la colone D, puis qu'il copie cette valeur dans la colonne B (je sais pas si je sui très clair..)

En gros ma double boucle ressemble à ça


Dim i as integer
Dim j as integer
For i = 2 to 30226 ' la liste que je cherche à convertir (avec des doublons)
For j=2 to 19010 ' la liste complète
if cells(i,1)=cells(j,4) then ' quand il trouve le même code dans la colonne A et C
cells(i,2)=cells (j,5) ' copier la valeur de la colonne D en B
endif
next
next



Mais dès que je la lance vba ne répond plus et je ne parvient pas à voir le résultat.
Je comprends pas : cette boucle est-elle infinie pour faire planter vba? si oui comment résoudre?

Il y a t'il y moyen de l'écrire plus simplement?

Merci!