Function MontantTTC(ByVal dPrice As Double, Optional dTVA As Double = 19.6, Optional iFloat As Integer = 2) As Double
MontantTTC = Round(dPrice + dPrice * dTVA / 100, iFloat)
End Function
Function MontantHT(ByVal dPrice As Double, Optional dTVA As Double = 19.6, Optional iFloat As Integer = 2) As Double
MontantHT = Round(dPrice / (1 + dTVA / 100), iFloat)
End Function
Sub Exemple_Utilisation()
Debug.Print MontantTTC(100)
Debug.Print MontantHT(100)
End Sub