Sortie de boucle

Bonjour le forum

J'utilise le code suivant pour marqué en bleu la même cellule trouvée dans 2 feuilles différentes.

Le pbl est que j'ai une sortie de boucle 'Exit For' dés que la condition est atteinte. Je voudrais pouvoir continuer le test de 'cellule1' jusqu'a la fin de le feuille 'Sheet1' car il est possible que cellule1 = plusieurs cellule2

Sub Trouve()
Application.ScreenUpdating = False

Dim Cellule1, Cellule2, fin As Range


For Each Cellule1 In Worksheets('sheet1').Range('K2:K' &_ Range('K65536').End(xlUp).Row)
For Each Cellule2 In Worksheets('sheet2').Range('B25:B' &_ Range('B65536').End(xlUp).Row)
If Cellule1 = Cellule2 Then
Worksheets('sheet1').Activate ' active la feuille B
Cellule1.Font.Color = vbBlue ' si trouvé bleu
Worksheets('sheet2').Activate
Cellule2.Font.Color = vbBlue
Exit For
End If
Next Cellule2
Worksheets('sheet1').Activate
Next Cellule1
end sub

Merci de votre aide