Public Function compter(zone As Range) As Integer
Application.Volatile
For Each ele In zone
tablo = Split(ele, " ")
For i = LBound(tablo) To UBound(tablo)
If IsNumeric(tablo(i)) Then
comp = comp + CInt(tablo(i))
Else
comp = comp + 1
End If
Next i
Next ele
compter = comp
End Function