Microsoft 365 Consolidation données depuis des feuilles

sylvanu à dit:

Bonjour Gpion,
Un essai avec :

VB:

Sub Consolider()
    Dim Ligne%, Tablo, F
    Sheets("Consolidation").[A2:D10000].ClearContents
    Application.ScreenUpdating = False
    Ligne = 3
    For Each F In Worksheets
        If F.Name <> "Consolidation" Then
            With Sheets(F.Name)
                DL = .[A10000].End(xlUp).Row
                Tablo = .Range("A2:D" & DL)
                Cells(Ligne, "A").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
                Ligne = Ligne + UBound(Tablo) + 1
            End With
        End If
    Next F
End Sub

La consolidation se fait à partir de toutes les feuilles ( Excepté Consolidation )

Cliquez pour agrandir...