XL 2016 Tri chronologique, je craque

Private Sub Worksheet_Activate()
Dim a(31), c As Range

Application.ScreenUpdating = False
Feuil1.Cells.Copy [A1]
[A1].Copy [A1] 'vide la mémoire

a(0) = "Stage Réseau 1J - soleil montat"
a(1) = "Stage Réseau 1J - Monge Mont"
a(2) = "Stage école - Soleil": a(3) = a(2): a(4) = a(2)
a(5) = "Stage école - Monge": a(6) = a(5): a(7) = a(5)
a(8) = "Stage cycle - ALP"
a(9) = "Stage cycle - C3"
a(10) = "Stage cycle - ALP"
a(11) = "Stage cycle - C2 - Soleil Monge"
a(12) = "Stage cycle - C2 - Monge montat"
a(13) = "Stage cycle - C2 - Soleil Montat"
a(14) = "Stage cycle - C1 - Soleil Monge"
a(15) = "Stage cycle - C1 - Soleil Montat"
a(16) = "Stage cycle - C1 - Monge montat"
a(17) = "Stage cycle - Journée ciblée - GS CP"
a(18) = "Stage cycle - Journée ciblée - CE1 CE2"
a(19) = "Stage cycle - Journée ciblée - PS MS"
a(20) = "Parcours personnalisé - Journées académiques - raisonner et faire raisonner"
a(21) = "Parcours personnalisé - Journées académiques - education prioritaire sciences "
a(22) = "Parcours personnalisé - Journées académiques - éducation prioritaire esprit critique"
a(23) = "Parcours personnalisé - Journées académiques - éducation prioritaire écrire pour penser"
a(24) = "Parcours personnalisé - s'approprier des ressources OU observations croisées OU Ingénierie de formation"
a(25) = a(24): a(26) = a(24): a(27) = a(24): a(28) = a(24): a(29) = a(24): a(30) = a(24): a(31) = a(24)

[E1:AJ9].UnMerge 'défusionne
[E1:AJ9] = ""
[E4:AJ4].Copy [E1:AJ9] 'pour la couleur
[E1:AJ1] = a
[E1:AJ86].Sort [E11], xlAscending, Orientation:=2 'tri horizontal sur les dates
[E1:AJ1].Orientation = 90
[E1:AJ1].WrapText = True 'retour à la ligne
For Each c In [E1:AJ1]
    c.Resize(9).Merge 'fusionne
Next
[E1:AJ1].Rows.AutoFit 'ajustement hauteur
End Sub