Problème boucle WHILE

Bonjour,

J'essais actuellement de faire un programme me donner le temps de chauffe de l'eau lorsque j'impose la température initiale (20°C) et finale (60°C).

Mon programme marche avec une boucle normal mais j'aimerai le faire arrêter lorsque T=60°C, je ne comprends pas où j'ai une erreur.

Pouvez-vous m'aidez ?

Voilla ma boucle qui marche suivit de mon essai avec la boucle while :

'For i = 1 To 1000
'Pperdu = Up * (Teauav - Tamb)
'Range("F" & i + 3).Value = i + 19
'Range("G" & i + 3).Value = Pperdu
'Teauap = Teauav + (deltat / mcp) * (-Pperdu + Pelec)
'next

i = 1
Do While Teauap = 60

Pperdu = Up * (Teauav - Tamb)
Range("F" & i + 3).Value = i + 19
Range("G" & i + 3).Value = Pperdu
Teauap = Teauav + (deltat / mcp) * (-Pperdu + Pelec)

Range("F" & i + 3).Value = i * deltat
Range("G" & i + 3).Value = Teauap

Teauav = Teauap
i = i + 1
Loop

Merci d'avance