Programmation vba

bonjour je dois réaliser un travail pour l'école et dans celui ci il nous est demandé de créer une base de donnée fonctionnelle pour une entreprise d'assurance. Cependant je n'arrive pas à mettre en oeuvre la consigne :
Dans la table des comptes utilisateurs, créez et remplissez les colonnes suivantes a l’aide de programmes VBA : Une colonne “Total cotisé” qui contient la somme des mensualités payées par ce
compte et une colonne “Total remboursement” qui contient la somme des remboursements effectués vers ce compte et voici mon code jusque maintenant :

Sub totalcotise()

Dim NumCompte As Currency


Dim NumClient As Integer
Dim IDCompte As Integer
IDCompte = Range("A1048576").End(x1Up).Row
Dim NumContrat As Integer
Dim Somme As Integer


For i = 2 To 13
    Sheets("Comptes Utilisateurs").Select
    Somme = 0
    NumCompte = Range("A" & i).Value
    
    
    Sheets("Contrats").Select
    For Client = 2 To IDCompte
        If Range("F" & Client).Value = NumCompte Then
            NumContrat = Client - 1
            
            
            Sheets("Mensulalités").Select
            
            
            For 1 = 2 To IDCompte
                If Range("A" & 1).Value = NumContrat Then
                    Somme = Somme + Range("C" & 1).Value
                    
                End If
            Next 1
            Debug.Print Somme
        End If
        
    Next Client
    Sheets("Comptes utilisateurs").Select
    Range("H" & i).Value = Somme
Next i


End Sub

Dans celui ci la première ligne est surlignée et la ligne For 1 = 2 To IDCompte est mise en rouge et ce message d'erreur apparait " erreur de compilation: erreur de syntaxe "

EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Merci d'y penser dans tes prochains messages.