Copier les données d'une feuille à l'autre

Sub Recup_Donnees()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim Lig_f2 As Long
    Dim Club As String
    
    Application.ScreenUpdating = False
    Set f1 = Sheets("Extraction")
    Set f2 = Sheets("Liste_Entrainements")
    f1.Range(Cells(4, "B"), Cells(100, "G")).Clear
    Club = f1.[E1]
    
    Set c = f2.Columns("A").Find(Club, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        Lig_f2 = c.Row
        Do
            Lig_f2 = Lig_f2 + 1
        Loop While f2.Cells(Lig_f2 + 1, "F") <> ""
        f2.Range(f2.Cells(c.Row, "A"), f2.Cells(Lig_f2, "F")).Copy Destination:=f1.[B4]
    Else
        MsgBox "Club pas trouvé"
    End If
    Set f1 = Nothing
    Set f2 = Nothing
    Set c = Nothing
End Sub