Public Sub MontantFacture()
Dim tbl, i As Long, MonDico As Object, mondico1 As Object 'dictionary
Dim derlig&, x&, ard
Set MonDico = CreateObject("Scripting.Dictionary")
Set mondico1 = CreateObject("Scripting.Dictionary")
With WsDC
tbl = .Range("A2:I" & .Range("A65536").End(xlUp).Row)
End With
For i = 1 To UBound(tbl)
MonDico(tbl(i, 3)) = MonDico(tbl(i, 3)) + tbl(i, 9)
mondico1(tbl(i, 3)) = mondico1(tbl(i, 3)) + (tbl(i, 9) + tbl(i, 9) * 0.08)
Next i
With WsFact
.[H2].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.Items)
.[j2].Resize(mondico1.Count, 1) = Application.Transpose(mondico1.Items)
.[H2].Resize(MonDico.Count, 1).NumberFormat = "0.00"
.[j2].Resize(MonDico.Count, 1).NumberFormat = "0.00"
derlig = .Range("j" & Rows.Count).End(xlUp).Row
For x = 2 To derlig
ard = Round(.Range("j" & x), 1)
.Range("j" & x) = ard
Next x
End With
End Sub