Comtage de lignes dans excel vba

Sub recenser_choix() 
Dim D_choix As Object, plage As Range 
Dim derlig As Integer, cptr As Integer 
Dim T_in(), uniq(), T_nbre(0 To 99, 0 To 1) 

Application.ScreenUpdating = False 
Set D_choix = CreateObject("scripting.dictionary") 
derlig = Columns("A").Find("*", , , , , xlPrevious).Row 
Set plage = Range("A1:A" & derlig) 
T_in = Application.Transpose(plage.Value) 

For cptr = 1 To derlig 
     If Not D_choix.exists(T_in(cptr)) Then D_choix.Add T_in(cptr), "" 
Next 
uniq = D_choix.keys 
For cptr = 0 To UBound(uniq) 
     T_nbre(cptr, 0) = uniq(cptr) 
     T_nbre(cptr, 1) = Application.CountIf(plage, uniq(cptr)) 
Next 

     Range("B1:C100") = T_nbre 
End Sub