Private Sub Worksheet_Change(ByVal Target As Range)
Sub TriDecroissant()
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Phase de poule").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("F42:F57"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange Range("E41:F57")
.Header = xlYes
.Apply
End With
End Sub