Bonsoir,
A tester :
Private Sub CommandButton16_Click()
Range("L3:N65536").Sort Key1:=Range("M3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
EDIT : j'avais oublié de joindre le fichier