Quel est ton separateur decimal sur cette machine ?
Essaie ceci :
Sub test()
tva = Application.InputBox(prompt:="Insérez le taux de TVA", Title:="TVA", Left:=15, Top:=80, Type:=3)
Taxe = Replace(tva, ",", ".")
MsgBox Taxe
End Sub
Pour exploiter le resultat, tu peux faire : Val(Taxe)