Sub principalesvaleurs()
Selection.FormatConditions.AddTopl0
Sélection.FormatConditions(Sélection.For matConditions.Count).StFirstPriority
With Selection.FormatConditions(1)
.TopBottom = xlToplOTop .Rank = 10 .Percent = False End With
With Selection.FormatConditions(1) .Font
.Color = -16752384
.TintAndShade = 0
End With
With
Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic.Color = 13561798 
End With
Sélection.FormatConditions(1).StopIfTrue = False
End Sub

Sélectionnez simplement une plage et exécutez cette macro et elle mettra en surbrillance les 10 premières valeurs avec la couleur verte.