Private Sub CommandButton1_Click()
[COLOR=Red][B]With Worksheets("Synthése")[/B][/COLOR]
[B][COLOR=Red].[/COLOR][/B]Range("A8:O22").Sort Key1:=[B][COLOR=Red].[/COLOR][/B]Range("O8"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
[COLOR=Red][B]End With[/B][/COLOR]
End Sub