Transfert des données d'une feuille Excel à une autre selon conditions

Option Explicit
Sub transfer_orders()
Application.ScreenUpdating = False

Dim f1 As Worksheet, f2 As Worksheet, data, extrait, i, j, n, debut
    Set f1 = Sheets("Feuil1")
    Set f2 = Sheets("Feuil2")
    debut = 3
    data = f1.Range("A" & debut).CurrentRegion.Value
    n = 0
    ReDim extrait(1 To UBound(data, 2) + 1, 1 To 1)
    For i = 2 To UBound(data)
        If data(i, 11) = "OK" Then
            f1.Range("K" & debut + i - 1) = "Transféré"
            n = n + 1
            ReDim Preserve extrait(1 To UBound(data, 2) + 1, 1 To n)
            For j = 1 To 10
                extrait(j, n) = data(i, j)
            Next
            For j = 12 To UBound(data, 2)
                extrait(j + 1, n) = data(i, j)
            Next
        End If
    Next
    f2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(UBound(extrait, 2), UBound(extrait)) = Application.Transpose(extrait)

Application.ScreenUpdating = True
End Sub