Accelerer une opèration de tri multicritère

Bonjour à tous le forum !!!
Grace à vous je commence à m'améliorer en programmation VBA. C'est pourquoi je me dirige vers vous pour solutionner mon problème.
Voici mon programme VBA pour réaliser un tri multicritère. Il marche mais en me prenant 2 minutes.
Comme vous pouvez le constater, je réalise un tri à multicritère et j'enregistre le fichier obtenu. Ainsi de suite, jusqu'à réaliser 4 tris.
Cela résulte-t-il de mon programme ? Peut modifier mon programme pour réduire le temps au minimum possible ? Si oui, comment le faire ? Je vous prie de m'aider.
Cordialement,


Public Sub tri()

Dim plg As Range
Application.ScreenUpdating = False

Set plg = Workbooks("clas.xlsm").Worksheets("feuil2").Range("A1:EE23353")

plg.AutoFilter

plg.Sort key1:=plg.Cells(1), order1:=xlAscending, key2:=plg.Cells(2), order2:=xlAscending, _
key3:=plg.Cells(3), order3:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom

ThisWorkbook.Save

Plg.Sort key1:=Plg.Cells(3), order1:=xlAscending, key2:=Plg.Cells(4), order2:=xlAscending, _
key3:=Plg.Cells(5), order3:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom

ThisWorkbook.Save

Plg.Sort key1:=Plg.Cells(6), order1:=xlAscending, key2:=Plg.Cells(7), order2:=xlAscending, _
key3:=Plg.Cells(8), order3:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom

ThisWorkbook.Save

Plg.Sort key1:=Plg.Cells(8), order1:=xlAscending, key2:=Plg.Cells(9), order2:=xlAscending, _
key3:=Plg.Cells(10), order3:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom

ThisWorkbook.Save
Application.ScreenUpdating = True

End Sub



Aidez moi s'il vous plait