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