Microsoft 365 Report de données de plusieurs onglets dans un onglet global

Sub Worksheet_Activate()
    Dim L%, Ligne%, F
    Application.ScreenUpdating = False
    Range("A2:D65000").ClearContents
    L = 2
    For Each F In Worksheets
        If F.Name <> "Global" Then
            Ligne = 2
            While Sheets(F.Name).Cells(Ligne, "A") <> ""
                Cells(L, "A") = F.Name
                Cells(L, "B") = Sheets(F.Name).Cells(Ligne, "A")
                Cells(L, "C") = Sheets(F.Name).Cells(Ligne, "B")
                Cells(L, "D") = Sheets(F.Name).Cells(Ligne, "C")
                Ligne = Ligne + 1
                L = L + 1
            Wend
        End If
    Next F
    Columns.AutoFit 'ajustement largeurs colonnes
    Application.ScreenUpdating = True
End Sub