Sub boutontvattcc()
Const TVA As Double = 0.206
For L = 5 To Range("H65000").End(xlUp).Row ' Pour toutes les lignes
Cells(L, "I") = Cells(L, "G") * Cells(L, "H") * TVA ' MontantTVA = Qté*HT*TVA
Cells(L, "J") = Cells(L, "G") * Cells(L, "H") + Cells(L, "I") ' TTC = HT + MontantTVA
Next L
End Sub