Salut aux pros de Excel

Pour une colonne de données, je dois identifier un somme variables de maximums en fonction de différents facteurs et les surligner en jaune
Avec la fonction Application.WorksheetFunction.Max, j'arrive à identifier la plus élevé, mais je ne sais pas comment identifier le 2ième plus élevée et les suivantes
Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub CommandButton4_Click()
 
Dim rng As Range
Dim dblMax As Double
Dim i As Integer
Dim A As Integer
    Set rng = Feuil4.Range("H3:H300")
        dblMax = Application.WorksheetFunction.Max(rng)
        A = 1
            For i = 1 To 300
                If Feuil4.Range("H" & A).Value = dblMax Then
                    Feuil4.Range("H" & A).Interior.ColorIndex = 6
                End If
            A = A + 1
        Next i
 
End Sub
Merci