Sub valeurmaximaleplage() Dim rng As Range For Each rng In Sélection If rng = WorksheetFunction.Min(Sélection) Then rng.Style = "Good" End I f Next rng End Sub
Il vérifiera toutes les cellules sélectionnées et mettra en surbrillance la cellule avec la valeur maximale.