Sub tri()
Dim ModeCalcul As Long, T As Variant
ModeCalcul = Application.Calculation
Application.Calculation = xlCalculationManual
With Range("A4:M50")
T = .Formula
.Value = .Value
.Sort Key1:=Range("M4"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Formula = T
End With
Application.Calculation = ModeCalcul
End Sub