Tri sans les valeurs zéro

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

Sub tri()
With Range("A4:M" & [F65536].End(xlUp).Row)
  .Columns(13).FormulaR1C1 = "=IF(RC6,RC6)"
  .Sort .Columns(13), xlAscending, Header:=xlYes
  .Columns(13).ClearContents
End With
End Sub