Dim plage As Range
Dim data As New Collection
Dim c As Range
Dim i As Integer
With Feuil1
Set plage = .Range("e8:i" & .Range("e65536").End(xlUp).Row)
End With
On Error Resume Next
For Each c In plage
If Not c = "" Then data.Add c, CStr(c)
Next c
On Error GoTo 0
For i = 1 To data.Count
Feuil1.Cells(i + 6, "K") = data(i)
Feuil1.Cells(i + 6, "L") = Application.CountIf(plage, data(i))
Next i