Comptage de valeur dans une colonne sur excel

Const col As String = "A" 'colonne de travail
Const lig_dep As Byte = 2 'ligne de départ
Const onglet As String = "feuil2" 'feuille restitution
Const adresse As String = "A2" 'cellule départ restitution)

Sub papa_maman_etc()
Dim Lig_fin As Integer, lig As Integer, nbre As Integer, ref as string
Dim dico As Object

Lig_fin = Cells(Cells.Rows.Count, col).End(xlUp).Row
Set dico = CreateObject("scripting.dictionary")

For lig = lig_dep To Lig_fin
     ref = Cells(lig, col)
     If Not dico.exists(ref) Then
          nbre = Application.CountIf(Columns(col), ref)
          dico.Add ref, nbre
     End If
Next
Application.ScreenUpdating = False
With Sheets(onglet)
     .Range(adresse).Resize(dico.Count, 1) = Application.Transpose(dico.keys)
     .Range(adresse).Offset(0, 1).Resize(dico.Count, 1) = Application.Transpose(dico.items)
     .Activate
End With
End Sub