Pb Fonction et plage discontinue

[Laurent91]

Bonjour à tous,
je voudrais ajouter cette fonction dans les fonctions de calculs d'excel(enrigistrer en .xla dans le dossier XLSTART), mais elle ne fonctionne pas avec une selection de plage discontinue ??? =sem(A1;B5...)

Merci d'avance pour votre aide. ;o)


Function SEM(PlageDeCellules As Range) As Double
Dim ecart, racine As Double
Dim valeur As Integer
With WorksheetFunction
ecart = .StDev(PlageDeCellules)
valeur = .Count(PlageDeCellules)
End With
racine = Sqr(valeur)
SEM = ecart / racine
End Function