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