While loop

Sub help()
     Dim m1 as range, t as range, l as range, a as range
      dim i as integer
     dim m2 as variant
      i=1
      Set m1=Range("D55"): t=Range9"D15
      Set l=Range("C46"): a=Range("D17")
      if u.value<=t.value then
           m2=m1.value+(l.value/a.value)
           m1.value=m2.value
           i=i+1
      end if
     msgbox"m1"                           ' (not code: if "msgbox "m1" " doesn't work, do : "msgbox str(m1) " or "msgbox "m1.value" ")
     range("D58").value= m2
end sub