Public Sub RepartiFG() 'stock
Dim a, b, i As Long, j As Long
a = Feuil2.[B4:G39]
b = Feuil2.[B43:G217]
For i = 1 To UBound(a)
For j = 1 To UBound(b)
If UCase(b(j, 1)) = UCase(a(i, 1)) Then
b(j, 5) = b(j, 5) + a(i, 5)
b(j, 6) = b(j, 6) - a(i, 6)
End If
Next j
Next i
With Feuil2
For j = 1 To UBound(b)
.Range("F" & j + 42) = b(j, 5)
.Range("G" & j + 42) = b(j, 6)
Next j
End With
End Sub