Sub Macro7()
Set ws = ActiveSheet ' selectionne la feuille active
Range("B10:J28").Select
ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:= _
Range("I10:I28"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ws.Sort
.SetRange Range("B10:J28")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub