Sub Tri_plusieurs_feuilles()
Dim ad$, h&, w As Worksheet, col As Range, n&
ad = "A3:C39" 'adresse à adapter
h = Range(ad).Rows.Count
Application.ScreenUpdating = False
With Workbooks.Add.Sheets(1) 'document auxiliaire
For Each w In ThisWorkbook.Worksheets
If w.FilterMode Then w.ShowAllData 'si la feuille est filtrée
For Each col In w.Range(ad).Columns
.Range("A" & .Rows.Count).End(xlUp)(2).Resize(h) = col.Value
Next col, w
.Columns(1).Sort .Columns(1), xlAscending, Header:=xlNo 'tri
For Each w In ThisWorkbook.Worksheets
For Each col In w.Range(ad).Columns
n = n + 1
col = .Cells(1 + h * (n - 1), 1).Resize(h).Value
Next col, w
.Parent.Close False 'fermeture du document auxiliaire
End With
End Sub