Sub TriSpécial()
Dim Plage As Range
Set Plage = Feuil1.[A5:C17]
Plage.Sort Key1:=Plage(1, 3), Key2:=Plage(1, 1), Order2:=xlDescending
With Plage.Columns(2)
.FormulaR1C1 = "=IF(RC3=R[-1]C3,R[-1]C,RC1)"
.Value = .Value: End With
Plage.Sort Key1:=Plage(1, 2), Order1:=xlDescending, Key2:=Plage(1, 1), Order2:=xlDescending
Plage.Columns(2).Value = Empty
End Sub