Somme selon categorie

Function NBCEL&(typ As Byte, mat, Optional ref$)
Dim m
mat = mat '=> matrice (plus rapide)
For Each m In mat
  Select Case typ
    Case 1
      If IsNumeric(m) Then _
        NBCEL = NBCEL - (Int(m / 1000) = Int(ref / 1000))
    Case 2
      NBCEL = NBCEL - (Right(m, 1) = Right(ref, 1))
    Case 3
      NBCEL = NBCEL - (Left(m, 1) = Right(ref, 1))
    Case 4
      If Val(m) And Not IsNumeric(Right(m, 1)) Then _
        NBCEL = NBCEL + (Right(m, 1) <> "H") * (Val(m) <= 200)
    Case 5
      If Val(m) And Not IsNumeric(Right(m, 1)) Then _
        NBCEL = NBCEL + (Right(m, 1) <> "H") * (Val(m) > 200)
  End Select
Next
End Function