Voila ce que tu peux ajouter dans ta macro en tenant compte de tes entêtes de feuilles.
Mais attention tu dois supprimer les feuilles vides pour que cela fonctionne comme cela, sinon tu es obligé de calculer sur quels feuilles tu veux travailler(each i).
Sub tri()
Dim i, maplage, plagetitre
For Each i In Worksheets
Set maplage = i.Range("a7:ab" & i.UsedRange.Rows.Count)
maplage.Sort key1:=i.Columns(25)
Next
End Sub
(j'ai une erreur de compilation sur ta macro de demarrage)
Bonne chance