Autres classement alpha d'un tableau entier

='F:\Fichiers\Hervé\Boulot\BOULOT- 2023-24\UNSS 23-24\[appel VB 2023-24 - LYCEE.xls]Saisie'!A29

Sub Tri()
    Application.ScreenUpdating = False
    For L = 6 To 102    ' recherche de la première cellule qui contient 0
        If Cells(L, "A") = 0 Then Exit For
    Next L
    Range("A5:GX" & L - 1).Resize(L - 6).Sort key1:=Range("A5"), order1:=xlAscending, Header:=xlYes
    ' L-1 car on prend la dernière cellule qui ne contient pas 0, et L-6 car le tableau commence en 5 donc L-1-5=L-6
End Sub