Option Explicit
Private Sub Worksheet_Activate()
Dim Cible As Range, N As Long
Application.ScreenUpdating = False
Me.[2:65536].Delete
Set Cible = Me.[A2]
For N = 1 To Worksheets.Count - 1
With Worksheets(N): .Range("A2:B" & .[A65536].End(xlUp).Row).Copy: End With
Cible.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Cible.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Set Cible = Cible.Offset(Selection.Rows.Count)
Next N
'Me.[A3:H3].Resize(Cible.Row - 3).Sort Key1:=Me.[B3], Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Me.[A1].Select
End Sub