Synchronisation de lignes automatique

Option Explicit

Sub Copie_Indispponible()
Dim i As Integer, j As Integer, n As Integer, t, a(), f1 As Worksheet, f2 As Worksheet

Set f1 = Sheets("Feuille Stock")
Set f2 = Sheets("Feuille à commander")

t = f1.Range("A2" & ":D" & f1.Range("D" & Rows.Count).End(xlUp).Row)

ReDim a(1 To UBound(t), 1 To UBound(t))
For i = 1 To UBound(t)
        If t(i, 4) = "Indisponible" Then
            n = n + 1
    For j = 1 To 4
            a(n, j) = t(i, j)
    Next j
        End If
        
Next i
f2.[A2].Resize(UBound(a), 4) = a
f2.Activate
End Sub

=INDEX('Feuille Stock'!$A$1:$A$100;MIN(SI(NB.SI('Feuille Stock'!$H$1:H1;'Feuille Stock'!$A$2:$A$100)=0;SI(('Feuille Stock'!$D$2:$D$100<>"")*('Feuille Stock'!$D$2:$D$100="Indisponible");LIGNE('Feuille Stock'!$A$2:$A$100)))))