''Inscription colonne sorties après sorties du bl
t0 = f.Range("A20" & ":H53") 't Tableau en BL (t 3) = ref, (t 5) = quantité BL
ReDim a(1 To UBound(t0), 8)
Dim n
For i = 1 To UBound(a) - 1
For j = 3 To UBound(t1)
'Si entrées moins sorties < qté demandée alors x en col A
If t1(j, 5) - t1(j, 6) < t0(i, 5) And t1(j, 1) = t0(i, 3) And t0(i, 3) <> "" Then
a(i, 0) = "x"
a(i, 2) = t0(i, 3)
a(i, 3) = t0(i, 4)
a(i, 4) = t1(j, 5) - t1(j, 6)
' End If
Next j
Next i
Dim a0(), a1(), a2()
ReDim a0(1 To UBound(a), 1)
ReDim a1(1 To UBound(a), 1)
ReDim a2(1 To UBound(a), 1)
For i = 1 To UBound(a) - 1
a0(i, 0) = a(i, 0)
Next i
For i = 1 To UBound(a) - 1
a1(i, 0) = a(i, 4)
Next i
f2.Range("V145").Resize(i, 1) = a0
f2.Range("Z145").Resize(i, 1) = a1
' Erase a