Public Function NBDB(plage As Range) As Long
Dim c As Range
Dim x As Long
Dim tablo()
ReDim tablo(0)
For Each c In plage
If Application.CountIf(plage, c) > 1 Then
If IsError(Application.Match(c, tablo, 0)) Then
ReDim Preserve tablo(x)
tablo(x) = c: x = x + 1
End If
End If
Next c
NBDB = UBound(tablo) + 1
End Function