je ne peux pas appliquer ta formule d'y hier .. pour se calcul .. a moins que tu m'explique comment je peux faire deux Sub calcul() dans le même module .. sans qu'il entre en confit avec l'autre et une autre question vu que tes la et que ton aide est précieuse pour moi ... pour la taxe de 8,5% est tu égal a 0,085 comme pour le 5% qui est 0.05
après vérification je crois bien que le trouble viens de la taxe de 8,5% .. quand j'incris 0.085 dans ta formule il me donne les résultats avec trois décimale après la virgule comment régler ça.
Private Sub TextBox256_Change()
TextBox251 = Val(Replace(TextBox256, ",", ".")) * 0.085
End Sub