Copier une plage sur feuil1 en fonction d'une cellule feuil2

Sub Copie()
    Dim rOF As Integer
    Dim rCF As Integer
    Dim sOF As Worksheet
    Dim sCF As Worksheet

    Set sOF = Worksheets("RECAP")
    Set sCF = Worksheets("Feuil1")
   
    rCF = 3

    For rOF = 2 To 10000
        If sOF.Cells(rOF, 8).Text = "2" Then
            sOF.Range(sOF.Cells(rOF, 1), sOF.Cells(rOF, 1)).Copy sCF.Cells(rCF, 1)
            rCF = rCF + 1
        End If
    Next
    Application.CutCopyMode = False
End Sub