• Thème : conditions If | Durée : 15 min | Niveau : débutant.
• Macro à écrire : Resultats.

• Les notes sont en colonne B à partir de la ligne 2 ; leur nombre varie d'une session à l'autre.
• Écrire en colonne C Admis si la note est supérieure ou égale à 10, Refusé sinon.

Sub Resultats()
    Dim derniere As Long, i As Long
    derniere = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To derniere
        If Cells(i, 2).Value >= 10 Then
            Cells(i, 3).Value = "Admis"
        Else
            Cells(i, 3).Value = "Refusé"
        End If
    Next i
End Sub

• Cells(Rows.Count, 2).End(xlUp).Row part de la dernière ligne de la feuille et remonte jusqu'à la première cellule remplie, comme Ctrl+Flèche haut.
• Point de vigilance : 10 est bien « Admis », d'où >= et non >.

• Instruction If...Then...Else : Source Microsoft Learn
• Propriété Range.End : Source Microsoft Learn