Private Sub Worksheet_Activate()
Dim a, w As Worksheet, h&
a = Array("Feuil1", "Feuil2") 'CodeNames des feuilles à exclure
Application.ScreenUpdating = False
Rows("2:" & Rows.Count).Delete 'RAZ
For Each w In Worksheets
If IsError(Application.Match(w.CodeName, a, 0)) Then
w.UsedRange.Offset(1).Copy Cells(2 + h, 1)
h = h + w.UsedRange.Rows.Count
End If
Next
Me.UsedRange.Sort [A1], Header:=xlYes 'tri sur colonne A
End Sub