optimisation WorksheetFunction

bonjour,

j'apelle le code suivant un très grand nombre de fois et
j'ai peur qu'en utilisant une WorkSheetFunction, ca
ralentisse l'execution de mon programme.

y aurait il un moyen d'optimiser ca ?

WorksheetFunction.Min(9, WorksheetFunction.max
(WorksheetFunction.Round(note, 0), -9))

par avance merci

pierref