Sortie boucle simple sur condition

bonjour, je n'arrive pas à faire stopper cette boucle lorsque f6 = f5 , quelqu un pourrait me dire ce qui ne va pas ?

merci

Sub trouvepourcentage()

'affichage box attendez
Usfcalcul.Show 0
Usfcalcul.Repaint

'For Compteur = 1 To 200
Do Until Range("f6") = Range("f5")

Sheets("farines multiples").Range("H6:H19").Value = Sheets("farines multiples").Range("R59:R72").Value

Loop
'Next Compteur

Unload Usfcalcul

Range("a1").Select
End Sub

j ai trouvé, ça fonctionne ..... la valeur comptait une 10ène de décimale non affichées. un arrondi au centième et c est ok