[Resolu] Trois feuilles à synthétiser dans une 4 éme avec tri par date

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

Private Sub Worksheet_Activate()
Dim col%, feuille, lig&, f
col = 4 'colonne des dates
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
  f.UsedRange.Offset(1).Copy Cells(lig, 1)
  lig = lig + f.UsedRange.Rows.Count - 1
Next
Me.UsedRange.Sort Columns(col), xlAscending, Header:=xlYes 'tri
End Sub