Sub b()
Dim L As Integer
With [A2:B10]
.Sort [B:B], xlDescending
.Sort [A:A], xlAscending
End With
For L = 2 To 10
If Cells(L - 1, 1) = Cells(L, 1) Then Cells(L, 2).ClearContents [B][COLOR=teal]' ou =""[/COLOR][/B]
Next
Intersect([A:B], [B2:B10].SpecialCells(xlCellTypeBlanks).EntireRow).Delete xlUp
End Sub