salut, j'ai trouve sur un autre forum. Voici la réponse pour ceux que ça intéresse :
Sub nb_doublons()
Dim V As New Collection, c As Range
On Error Resume Next
Application.ScreenUpdating = False
For Each c In Range("B6", Cells(Rows.Count, "b" ).End(xlUp))
If c <> "" Then V.Add c.Value, CStr([c])
Next c
MsgBox V.Count
End Sub
Merci à Laetitia pour son aide.