Sub Compter_Date()
Dim Coll As Collection
Dim Lig As Long, DerL As Long
Dim Compteur As Long
' ligne de début du tableau colonne A
Lig = 10
'ligne de fin
DerL = Range("A65536").End(xlUp).Row
Columns(4).ClearContents
Columns(5).ClearContents
'collecte les données sans doublons
Set Coll = New Collection
For Compteur = Lig To DerL
On Error Resume Next
Coll.Add Cells(Compteur, 1).Value, Cells(Compteur, 1).Text
On Error GoTo 0
Next
For Compteur = 1 To Coll.Count
'restitue chaque donnée dans colonne D
Cells(Compteur + 1, 4) = Coll(Compteur)
'indique le nombre d'occurrences de la donnée dans colonne E
Cells(Compteur + 1, 5) = Application.CountIf(Range(Cells(Lig, 1), Cells(DerL, 1)), Cells(Compteur + 1, 4))
Next
Set Coll = Nothing
[A1].Select
End Sub