XL 2019 Macro regroupé onglet

Sub Consolide_onglets()
    Dim f1 As Worksheet, f2 As Worksheet, f3 As Worksheet
    Dim Derlig_f1 As Long, Derlig_f2 As Long
    
    Application.ScreenUpdating = False
    Set f1 = Sheets("FLLS_1")
    Set f2 = Sheets("FLLS_2")
    Set f3 = Sheets("CONSO")
    
    Derlig_f1 = f1.Range("B" & Rows.Count).End(xlUp).Row
    Derlig_f2 = f1.Range("B" & Rows.Count).End(xlUp).Row
    
    f3.Cells.Clear
    f1.Range("A1:M" & Derlig_f1).Copy f3.Range("A1")
    f2.Range("A2:M" & Derlig_f1).Copy f3.Range("A" & Derlig_f1 + 1)
    
    Set f1 = Nothing
    Set f2 = Nothing
    Set f3 = Nothing
End Sub