des totaux montant HT, TVA5,5, TVA 19,6
For i = lig To 1 Step -1
If .Cells(i, "F") <> "REPORT" And .Cells(i, "F") <> "Quantité" Then
If IsNumeric(.Cells(i, "G")) Then ctrmt = ctrmt + .Cells(i, "G")
If IsNumeric(.Cells(i, "J")) Then ctrtva7 = ctrtva7 + .Cells(i, "J")
If IsNumeric(.Cells(i, "K")) Then ctrtva19 = ctrtva19 + .Cells(i, "K")
Else
If IsNumeric(.Cells(i, "G")) Then ctrmt = ctrmt + .Cells(i, "G")
If IsNumeric(.Cells(i, "J")) Then ctrtva7 = ctrtva7 + .Cells(i, "J")
If IsNumeric(.Cells(i, "K")) Then ctrtva19 = ctrtva19 + .Cells(i, "K")
Exit For
End If
Next i
.Cells(lig + 1, "G") = ctrmt
.Cells(lig + 1, "J") = ctrtva7
.Cells(lig + 1, "K") = ctrtva19