[VBA Excel] problème de fonction

Bonjour,

je suis en train d'écrire une macro et j'ai besoin des fonction min, max, moyenne et médiane, et j'ai quelques soucis.

Voici le code que j'ai marqué :

For i = 0 To UBound(col)
Cells(nl, col(i)) = WorksheetFunction.min(Range(Cells(deb, col(i)), Cells(fin, col(i))))
Cells(nl + 1, col(i)) = WorksheetFunction.max(Range(Cells(deb, col(i)), Cells(fin, col(i))))
Cells(nl + 2, col(i)) = WorksheetFunction.Average(Range(Cells(deb, col(i)), Cells(fin, col(i))))
Cells(nl + 3, col(i)) = WorksheetFunction.Median(Range(Cells(deb, col(i)), Cells(fin, col(i))))
Next

et le message d'erreur :
Erreur d'éxecution 1004 : impossible de lire la propriété average de la classe worksheetfunction.

Si je zappe la ligne average, j'ai le meme problème pour les 3 autres donc ce n'est pas spécifique à la fonction average.
Dans mes données il peut y avoir quelques cellules de texte, ou #valeur

Quelqu'un a-t-il une idée ??