Sub Resultat_Examen()
Select Case Cells(1, 1)
Case 0 To 9.99
Cells(1, 2) = "Non reçu"
Case 10 To 11.99
Cells(1, 2) = "Reçu"
Case 12 To 13.99
Cells(1, 2) = "Reçu. Mention AB"
Case 14 To 15.99
Cells(1, 2) = "Reçu. Mention B"
Case Else
Cells(1, 2) = "Reçu. Mention TB"
End Select
End Sub