Bonjour
Mon truc à moi, c'est surtout les formules
Sur le classeur joint, j'ai dévérouillé les cellules des colonnes A à H, puis, j'ai protégé la Feuille, mot de passe jjm.
J'ai ensuite ajouté à la Macro, une ligne pour enlever la protection avant le tri et une autre pour la remettre après le tri.
Sub Tri()
Dim LastRow As Integer
ActiveSheet.Unprotect "jjm"
LastRow = ActiveSheet.Range("G65536").End(xlUp).Row
Range("B2:M" & LastRow).Sort Key1:=Range("L2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect "jjm"
End Sub
https://www.excel-pratique.com/~files/doc2/Clt_Randotop_ORIGINAL.xls
Cordialement