Function Note(Cellule As String, Plage As Range, ligne As Long, Rang As Byte) As String
Application.Volatile 'comme préconisé justement par Modeste
n = Array("-", 0, 1, 2, 3, 4)
r = Array("Non évalué", "NA", "ECA", "AR", "A", "Erreur")
c = Array(1, 3, 46, 32, 10, 1)
k = Cells(ligne, Plage.Find(Cellule, LookIn:=xlValues, lookat:=xlWhole).Column + Rang - 1)
For x = 0 To 5
If k = n(x) Then
Note = r(x)
Range(Application.Caller.Address).Font.ColorIndex = c(x)
Exit For
End If
Next
End Function