XL 2019 Macro regroupé onglet

[jebibo]

Bonjour à tous

Je dois consolider l'onglet FFLS_1 et FLLS_2 en sous l'autre, mon tableau peux varier en nombre de liqne (de 2 à 100000) à chaque semaine je n'y arrive pas
je voudrais exécuté une macro afin de rendre plus conviviale l'utilisation.
Je vous remercie de votre aide qui est très apprécier.

Au plaisir

 

[Rouge]

Bonjour,

Ceci

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

Cdlt

 

[jebibo]

Bonjour Rouge,

Merci beaucoup je valide le tout si jamais j,ai des questions je te reviens.
Belle journée à vous

 

[jebibo]

Bonjour Rouge

Toutes est super! ça fonction parfaitement Merci pour votre attention.
Au plaisir