Bonjour,

Je pense que la fonction publique suivante sera plus efficace que ton code. A essayer

Public Function rangEleve(sTblname As String, dblMoyEleve As Double) As String
' 2020-03-21
...