Copier une ligne en fonction de la valeur d'une cellule

Option Compare Text
Option Explicit

Sub Recopie()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim DerLig_f1 As Long, Derlig_f2 As Long, DerCol_f1 As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    Set f1 = Sheets("Feuil1")
    Set f2 = Sheets("Feuil2")
    
    DerLig_f1 = f1.[A100000].End(xlUp).Row
    DerCol_f1 = [xfd1].End(xlToLeft).Column
    Derlig_f2 = f2.[A10000].End(xlUp).Row + 1
    For i = DerLig_f1 To 1 Step -1
        If f1.Cells(i, "A") = "x" Then
            f1.Range(Cells(i, "B"), Cells(i, DerCol_f1)).Copy Destination:=f2.Cells(Derlig_f2, "A")
            f1.Range(Cells(i, "A"), Cells(i, DerCol_f1)).EntireRow.Delete
            Derlig_f2 = Derlig_f2 + 1
        End If
    Next i
    
    Set f1 = Nothing
    Set f2 = Nothing
End Sub