If w.Cells(i, 5) = "" Then w.Cells(i, 5) = "///" 'sécurité, client vide
If w.Cells(i, 6) = "" Then w.Cells(i, 6) = "###" 'sécurité, catégorie vide
If v1 - v2 + v3 - v4 > 0 Then
x = w.Cells(i, 5) & Chr(1) & w.Cells(i, 6)
d1(x) = d1(x) + v1: d2(x) = d2(x) + v2
d3(x) = d3(x) + v3: d4(x) = d4(x) + v4
End If