Dim Der&, Plage As Range, n&, i&
'-----------
Der = Range("K65536").End(xlUp).Row
Set Plage = Range("K1:K" & Der).SpecialCells(xlCellTypeVisible)
With Range("L2:L" & Der)
.Font.ColorIndex = 1
.Font.Bold = False
.ClearContents
End With
n = 1
For i = 2 To Der
If Not Rows(i).Hidden Then
Cells(i, 12) = Application.WorksheetFunction.Rank(Cells(i, 11), Plage)
If Cells(n, 12) = Cells(i, 12) Then
With Union(Range("L" & n), Range("L" & i)).Font
.ColorIndex = 46
.Bold = True
End With
End If
n = i
End If
Next
Application.ScreenUpdating = True