Sub macro_tri()
Dim DerLgn As Integer
Set Mafeuille = ActiveSheet ' à adapter
DerLgn = Mafeuille.Cells(Mafeuille.Rows.Count, 3).End(xlUp).Row
With Mafeuille.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("C5:C" & DerLgn), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange Range("C4:F" & DerLgn)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub