Sub MFC_MIN_MAX()
Dim LigneDeb As Long, LigneFin As Long, ColDeb As String
With Selection
.Range("A1").Activate
LigneDeb = ActiveCell.Row
LigneFin = LigneDeb + Selection.Rows.Count - 1
ColDeb = Left(ActiveCell.Address(True, False, xlA1), InStr(1, ActiveCell.Address(True, False, xlA1), "$") - 1)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=" & ColDeb & LigneDeb & "=MAX(" & ColDeb & "$" & LigneDeb & ":" & ColDeb & "$" & LigneFin & ")"
.FormatConditions(1).Interior.ColorIndex = 3
.FormatConditions.Add Type:=xlExpression, Formula1:="=" & ColDeb & LigneDeb & "=MIN(" & ColDeb & "$" & LigneDeb & ":" & ColDeb & "$" & LigneFin & ")"
.FormatConditions(2).Interior.ColorIndex = 4
End With
End Sub