Calculer le nombre d'identifiants dans une plage horaire

Bonjour,

Je suis une débutante en VBA et je souhaite avoir une correction sur ma macro.
J'ai une base de données et j'essaie de definir le nombre d'identifiants dans une plage horaire.
Ma BDD se compose de :
- En colonne A : les numéro d'identifiants
- En colonne K : les heures (ex : 16:08:09)

Je souhaite obtenir le nombre d'identifiants sur 4 différentes plages horraires :
- de 9h à midi
- de midi à 16h
- de 16h à 18h
- > à 18h

Voici ma macro :
Sub plage_horaires()
Dim I As Integer
'h1 correspond à la colonne K à étudier
Dim h1 As Integer
' H correspond à la plage 9h à 12h, H_1 de 12h à 16h, H_2 de 16h à 18h et H_3 > à 18h.
Dim H As Integer
Dim H_1 As Integer
Dim H_2 As Integer
Dim H_3 As Integer
Dim Hour1 As Variant
Dim totalh As Variant
'On observe les heures de la colonne K
h1 = 11
'WorksheetFunction.CountA(Columns(1)) compte le nombre de cellules non vides de la colonne 1 (nombre d'identifiants)
For I = 2 To WorksheetFunction.CountA(Columns(1))
Hour1 = Cells(I, h1).Value
totalh = WorksheetFunction.CountA(Columns(1)) - 1
If Hour1 <= 12 Then
H = H + 1
End If
If Hour1 <= 16 Then
H_1 = H_1 + 1
End If
If Hour1 <= 18 Then
H_2 = H_2 + 1
End If
If Hour1 > 18 Then
H_3 = H_3 + 1
End If
Next I
MsgBox ("Booking hours : 9am to 12am = " & H & ", 12am to 4pm = " & H_1 & ", 4pm to 6pm = " & H_2 & ", > 6pm = " & H_3 & ", Total = " & totalh)
End Sub

Mon bug : le résultat que j'obtiens représente le nombre total de ligne...

Pouvez-vous m'éclairer, svp ?

Merci d'avance