Function Test(Classe, osserv As Range, Dst As String, ParA, ParB) As Single
....
Dist as string
....
Dist = Application.WorksheetFunction.Upper(Dst)
....

executing the "Dist = ..." statement VBA stops abnormally (without any message)

Have you encountered this problem?

Alex.