Sub Classement()
Dim Ligne As Long
Dim Lignes As Long
Lignes = Range("A65536").End(xlUp).Row
Range(Cells(Lignes, 1), Cells(Lignes, 3)).Interior.ColorIndex = 38
Range("A:C").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For Ligne = 1 To Lignes
Select Case Cells(Ligne, 1).Interior.ColorIndex
Case 38
With Range(Cells(Ligne, 1), Cells(Ligne, 3))
.Interior.ColorIndex = xlNone
.Select
End With
Exit Sub
End Select
Next Ligne
End Sub