Mon code VBA ne m'affiche aucune erreur et pourtant rien ne se passe

Bonjour, j'ai réalisé le code suivant

Public Sub NombreClientsConnectes()
Sheets("Comptes utilisateurs").Select
Dim NBCC As Long
NBCC = Range("A1048576").End(xlUp).Row
Sheets("Clients").Select
Dim NBCU As Long
NBCU = Range("K1048576").End(xlUp).Row


Dim NumdeCompte As String
Dim count As Integer



Sheets("Comptes utilisateurs").Select
Range("E1").Value = "Nombre de clients connectés"

For CompteUt = 2 To NBCU
    NumdeCompte = Range("A" & CompteUt).Value
    
    count = 0
 
 
Sheets("Clients").Select
    For clients = 2 To NBCC
        If Range("K" & clients).Value = NumdeCompte Then
        count = count + 1
        End If
    Next clients

    Sheets("Comptes utilisateurs").Select

    Range("E" & CompteUt).Value = count

Next CompteUt

End Sub

En fait j'ai essayer de transformer une formule nb.si d'excel en vba mais rien ne ce passe
voici la formule excel de base que j'ai "transformé" =NB.SI(Clients!$K$2:$K$21;'Comptes utilisateurs'!A2) et normalement le résultat devrait s'afficher dans les cellules E2 à E9 de la feuille comptes utilisateurs

pouvez-vous m'aider, je suis vraiment perdu..

EDIT : Correction des balises de code.... ENCORE ...!!!