Option Explicit
Sub Tri()
Range("B3:I34") = Range("B3:I34").Value
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("I3:I34"), SortOn:=xlSortOnValues, Order:=xlDescending
.SetRange Range("B2:I34")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("I2").Select
End Sub