Public cell, nombre, n, sommeC
Function MoyenneC(zone As Range)
'Stop
n = 0
sommeC = 0
For Each cell In zone
If IsNumeric(cell.Value) And cell.Value <> "" Then n = n + 1
If IsNumeric(cell.Value) Then sommeC = (cell.Value + sommeC) Else TrouveNombre: sommeC = (nombre + sommeC)
'MsgBox cell.Value
Next
MoyenneC = sommeC / n ': MsgBox n
End Function
Sub TrouveNombre()
'MsgBox cell.Value
nombre = ""
n = n + 1
For i = 1 To Len(cell)
If IsNumeric(Mid(cell.Value, i, 1)) Or Mid(cell.Value, i, 1) = "," Then nombre = nombre & Mid(cell.Value, i, 1) 'MsgBox nombre * 2
Next
If nombre = "" Then n = n - 1: nombre = 0
End Sub