Erreur dans le code avec cells

Note = Cells(numeroLigne, Colonne).Value donne une erreur mais je sais pas pourquoi ni la solution

Sub bareme()

'Definition des variables
Dim Fille As Boolean
Dim Garçon As Boolean
Dim Age As Integer
Dim Temps As String
Dim Note As Integer
Dim numeroLigne As Double
Dim Catégorie As String
Dim Colonne As Double

'Ecriture
Range("K1").Value = "Genre"
Range("K2").Value = "Age"
Range("K3").Value = "Temps"
Range("K4").Value = "Note"
Range("K5").Value = "Validation"

'Choisir la bonne colonne Age /Fille
If Agetxt > 19 Then
Range("O1").Columns = Colonne
End If
If Agetxt >= 17 And Age <= 19 Then
Range("P1").Columns = Colonne
End If
If Agetxt >= 15 And Age <= 17 Then
Range("Q1").Columns = Colonne
End If
If Age >= 13 And Age <= 15 Then
Range("R1").Columns = Colonne
End If
If Age < 13 Then
Range("S1").Columns = Colonne
End If

If Agetxt > 19 Then
Range("T1").Columns = Colonne
End If
If Agetxt >= 17 And Agetxt <= 19 Then
Range("U").Columns = Colonne
End If
If Agetxt >= 15 And Agetxt <= 17 Then
Range("V1").Columns = Colonne
End If
If Agetxt >= 13 And Agetxt <= 15 Then
Range("W1").Columns = Colonne
End If
If Agetxt < 13 Then
Range("X1").Columns = Colonne
End If

'Temps

'Donner note

Note = Cells(numeroLigne, Colonne).Value

'Oui et non
If Note >= 10 Then
Range("L5").Font.ColorIndex = 4
Range("L4").Value = "Note"
Else: Range("L5").Font.ColorIndex = 3
End If

End Sub

Fournir le fichier KIVABIEN avec.

A+

Et Agetxt c'est quoi ?

Pas la peine d'ouvrir 70 fils...Choisis en un et continue dessus...

A+

j'ai mis le fichier

je sais pas moi je connais pas ce language

Autant pour moi, je n'avais pas vu que tu as mis ton fichier tout en haut !

A+

Le fichier était trop lourd donc je l'ai mis dans un zip

Voire en MP