Compter le nombre de modalités

Option Explicit
'--------
Sub decompter_occurences()
Dim Dico As Object, Derlig As Integer, Tablo
Dim Idx As Integer

    Application.ScreenUpdating = False
    With Sheets(1)
        Set Dico = CreateObject("scripting.dictionary")
        Derlig = .Columns("G").Find(what:="*", searchdirection:=xlPrevious).Row
        Tablo = .Range("G2:G" & Derlig)
        For Idx = 1 To UBound(Tablo)
            If Not Dico.exists(Tablo(Idx, 1)) Then: Dico.Add Tablo(Idx, 1), ""
        Next
        
        MsgBox Dico.Count & " occurences colonne G"
    End With
End Sub