Affecter une note grâce à une inputbox - Excel VBA

Sub macro_appreciations()
Dim NE As Integer 'déclare la variable NE (Nombre d'Élèves)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TC As Variant 'déclare la variable TC (Tableau de cellules)
Dim BN As Variant 'déclare la variable BN (Boîte Note)
Dim note As Integer 'déclare la variable note

NE = Cells(Application.Rows.Count, 1).End(xlUp).Row - 1 'définit le nombre d'élèves (pourquoi -1 ?)
TC = Range("A1:C" & NE) 'définit le tableau de cellules TC
For I = 2 To UBound(TC, 1) 'boucle sur toutes les ligne du tableau TC (en partant de la seconde)
    'condition 1 : si la valeur en colonne 1 de la ligne est vide ou si elle est inférieure à 0 ou supérieure à 20
    If TC(I, 2) = "" Or TC(I, 2) < 0 Or TC(I, 2) > 20 Then
        Cells(I, 2).Interior.ColorIndex = 3 'colore la cellule de rouge
NV: 'étiquette (Non Valide)
        BN = Application.InputBox("Veuillez saisir une note valide !", Type:=1) 'déffinit la boîte d'entrée BN
        If BN = False Then 'condition 2 : si bouton "Annuler" dans la boîte d'entrée BE
            'si "Non" au message retourne à la boîte d'entrée (via l'étiquette NV), si "Oui" au message passe à la note suivante (via l'étiquette "suite")
            If MsgBox("L'élève " & Cells(I, 1).Value & " n'est pas noté ! Voulez-vous continuer ?", vbYesNo, "ATTENTION") = vbNo Then GoTo NV Else GoTo suite
        End If 'fin de la condition 2
        If BN < 0 Or BN > 20 Then MsgBox "Note non valide !": GoTo NV 'condition 3 : si la note n'est pas valide, retoure à la boîte d'entrée (via l'étiquette "NV")
            Cells(I, 2).Value = BN 'place la note dans la cellule
            Cells(I, 2).Interior.ColorIndex = xlNone 'supprime la couleur rouge de la cellule
        End If 'fin de la condition 3
    note = Cells(I, 2).Value 'définit la variable note
    Select Case note 'action en fonction de la note
        Case 0 'cas zéro
            Cells(I, 3).Value = "Nul" 'appréciation dans la cellule en colonne 3
        Case 1 To 5 'de 1 a 5
            Cells(I, 3).Value = "Très Insuffisant" 'appréciation dans la cellule en colonne 3
        Case 6 To 9 'de 6 à 9
            Cells(I, 3).Value = "Insuffisant" 'appréciation dans la cellule en colonne 3
        Case 10 To 15 'de 10 à 15
            Cells(I, 3).Value = "Bien" 'appréciation dans la cellule en colonne 3
        Case 16 To 19 'de 19 à 19
            Cells(I, 3).Value = "Très Bien" 'appréciation dans la cellule en colonne 3
        Case 20 'cas 20
            Cells(I, 3).Value = "Excellent" 'appréciation dans la cellule en colonne 3
    End Select 'fin de l'action en fonction de la note
suite: 'étiquette
Next I 'prochaine ligne du tableau TC
End Sub

Option Explicit
'----
Sub macro_appreciations()
Dim nbeleves As Byte
Dim i As Byte
Dim note As Single

nbeleves = Range("A1048576").End(xlUp).Row

For i = 1 To nbeleves
        On Error GoTo erreur
1:    note = InputBox(prompt:="note de " & Cells(i, "A") & " ? ")
      Select Case note
        Case Is = 0
            Cells(i, "C") = "nul"
        Case Is <= 5
            Cells(i, "C") = "très insuffisant"
        Case Is <= 9
            Cells(i, "C") = "insuffisant"
        Case Is <= 15
            Cells(i, "C") = "bien"
        Case Is <= 19
            Cells(i, "C") = "très bien"
        Case Is <= 20
            Cells(i, "C") = "excellent"
        Case Else
            MsgBox "saisir une note entre 0 et 20", vbCritical
            GoTo 1
        End Select
        Cells(i,"B")=note
Next i
Exit Sub

erreur:
    MsgBox "saisie d'un texte non valable", vbCritical
    Resume 1
End Sub

Option Explicit
'----
Sub macro_appreciations()
Dim nbeleves As Byte
Dim i As Byte
Dim Note As Single
Dim Quoi As String, Par As String

Par = Application.International(xlDecimalSeparator)
Quoi = IIf(Par = ",", ".", ",")
nbeleves = Range("A1048576").End(xlUp).Row

For i = 1 To nbeleves
    Do
      Note = Replace(InputBox(prompt:="note de " & Cells(i, "A") & " ? "), Quoi, Par)
      If Note < 0 Or Note > 20 Then MsgBox "saisir une note entre 0 et 20", vbCritical
    Loop While Note < 0 Or Note > 20
    Cells(i, "B") = Note
    Cells(i, "C") = Appreciation(Note)
Next i
End Sub

Function Appreciation(sgNote As Single) As String
      Select Case sgNote
        Case Is = 0
            Appreciation = "nul"
        Case Is <= 5
            Appreciation = "très insuffisant"
        Case Is <= 9
            Appreciation = "insuffisant"
        Case Is <= 15
            Appreciation = "bien"
        Case Is <= 19
            Appreciation = "très bien"
        Case Is <= 20
            Appreciation = "excellent"
        Case Else
            Appreciation = "Erreur inconnue"
        End Select
End Function