Mise en forme conditionnelle: icône sur les 3 plus hautes valeurs

=SI(OU(A1=GRANDE.VALEUR($A$1:$A$100;1);A1=GRANDE.VALEUR($A$1:$A$100;2);A1=GRANDE.VALEUR($A$1:$A$100;3));"*";"")

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, n As Long
Set plage = [A:A] 'plage à adapter
n = Application.Count(plage) 'nombre de notes
If n < 3 Then Exit Sub
n = Application.Large(plage, 3) 'fonction GRANDE.VALEUR
[A:A].NumberFormat = "[>=" & n & "]0""*"";General" 'format nombre personnalisé
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, n As Double
Set plage = [A:A] 'plage à adapter
n = Application.Count(plage) 'nombre de notes
If n < 3 Then Exit Sub
n = Application.Large(plage, 3) 'fonction GRANDE.VALEUR
[A:A].NumberFormat = "[>=" & n & "]General""*"";General"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, n As String
Set plage = [A:A] 'plage à adapter
If Application.Count(plage) < 3 Then Exit Sub 'nombre de notes
n = Replace(Application.Large(plage, 3), ",", ".") 'Large : GRANDE.VALEUR
plage.NumberFormat = "[>=" & n & "]General""*"";General"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, n As String
Set plage = [A:A] 'plage à adapter
If Application.Count(plage) < 3 Then Exit Sub 'nombre de notes
n = Int(10 * Application.Large(plage, 3)) / 10 'GRANDE.VALEUR avec une décimale
n = Replace(n, ",", ".")
plage.NumberFormat = "[>=" & n & "]General""*"";General"
End Sub