Excel vba

Bonjour,
je veux faire une macro excel qui consiste à faire le calcul dans la feuille excel tout en faisant entrer les données à travers une application VBA alors il se bloque en détectant une erreur d'incompatiblé !!!!
voici le code
Sub Macro1()
'
' Macro1 Macro
'

ActiveSheet.Range("B20").Value = UserForm1.TextBox1.Value
If UserForm1.OptionButton1.Value = True Then
ActiveSheet.Range("B18").Value = 0.273
End If
If UserForm1.OptionButton2.Value = True Then
ActiveSheet.Range("B17").Value = 0.021
End If
If UserForm1.OptionButton3.Value = True Then
ActiveSheet.Range("B16").Value = 0.0295
End If
If UserForm1.OptionButton2.Value = True Then
ActiveSheet.Range("B15").Value = 0.043
End If
ActiveSheet.Range("B1").Value = UserForm1.ComboBox3.Value
ActiveSheet.Range("B2").Value = UserForm1.ComboBox4.Value
#ligne de l'erreur#While (ActiveSheet.Range("B49") < 100) And (ActiveSheet.Range("E59") >ActiveSheet.Range("B13"))
ActiveSheet.Range("B3") = ActiveSheet.Range("E58")
ActiveSheet.Range("B49") = ActiveSheet.Range("B49") + 1
ActiveSheet.Range("E60") = Int(ActiveSheet.Range("E58")) + 1
ActiveSheet.Range("E61") = 3.14 * ActiveSheet.Range("E60") * ActiveSheet.Range("B2") * ActiveSheet.Range("B12")
Wend
'
Application.Run "'calcul u la neme fois.xlsm'!Macro1"

End Sub