Private Sub Worksheet_Activate()
Dim ncol%, feuille, lig&, f, t
ncol = 4 'nombre de colonnes
feuille = Array(Feuil1, Feuil2, Feuil3) 'CodeNames des feuilles à copier
Application.ScreenUpdating = False
Rows("2:" & Rows.Count).Delete 'RAZ
lig = 2 '1ère ligne à renseigner
For Each f In feuille
t = Intersect(f.UsedRange.Offset(1).EntireRow, f.[A:A].Resize(, ncol + 1))
Cells(lig, 1).Resize(UBound(t), ncol) = t
lig = lig + UBound(t)
Next
[A:A].Resize(, ncol).Sort Columns(ncol), xlAscending, Header:=xlYes 'tri
End Sub