Function MonMax(zone As Range) As Double
For Each curCell In zone.Cells
If IsNumeric(curCell.Value) Then
If MonMax < curCell.Value Then MonMax = curCell.Value
End If
Next curCell
End Function
Function MaSomme(zone As Range) As Integer
For Each curCell In zone.Cells
If IsNumeric(curCell.Value) And curCell.Value <> vbNullString Then
MaSomme = MaSomme + 1
End If
Next curCell
End Function