Copier une cellule en fonction d'autres cellules

Bonjour, je fais appel à vous car je bloque sur un problème.

J'ai plusieurs feuilles dans un même classeur.

Dans la feuille "COR" je récapitules certaines correspondances entre les feuilles.

J'ai dans cette feuille, en colonne N la concaténation des cellules D, E et G. Je fais ensuite
la copie de ces valeurs en colonne M (afin de ne plus avoir la formule mais seulement les valeurs).

Dans la feuille "TXT", en colonne Y, je fais la concaténation des cellules B, C et D et je fais là
aussi une copie des valeurs en colonne Z.

Les champs de concaténation correspondent dans les deux cas au champs Nom, Prenom, et ID.

Je voudrais faire en sorte que si la valeur de la cellule en colonne M de la feuille "COR" est
égale à la valeur de la cellule en colonne Z de "TXT" alors la valeur de la cellule H de "COR"
est égale à la valeur de la cellule en colonne E de "TXT".

Ma feuille TXT fait environ 40.000 lignes et pour ma feuille COR cela dépend.

J'ai fais plusieurs codes mais à chaque fois j'ai "Excel ne répond pas".

Voici mon code :

Sub corres()

Dim u as long
Dim v as long

u = 2
v = 2

Do While Sheets("COR").Cells(u, 1).Value <> ""

If Sheets("COR").Cells(u, 13).Value = Sheets("TXT").Cells(v, 26).Value Then

   Sheets("COR").Cells(u, 8).Value = Sheets("TXT").Cells(v, 5).Value
   
   u = u + 1
   
   Else
   v = v + 1
    
    If v = 40000 Then
    u = u + 1
    v = 2
    End If
   
   
End If
Loop

end sub

Merci pour votre aide.