Parametres d'entrés d'une macro-fonction

Bonjour,

J'ai développé un macro-fonction 'DoPS()' ayant comme parametres d'entrées 10 Valeurs(de type Single).

Voici le début de ma SubRoutine:
Public Function DoPS(R As Range) As Single
Dim Z As Single
Dim U As Single
Dim liste(1 To 9) As Single

liste(1) = R.Cells(1, 1).Value
liste(2) = R.Cells(2, 1).Value
liste(3) = R.Cells(3, 1).Value
liste(4) = R.Cells(4, 1).Value
liste(5) = R.Cells(5, 1).Value
liste(6) = R.Cells(6, 1).Value
liste(7) = R.Cells(7, 1).Value
liste(8) = R.Cells(8, 1).Value
liste(9) = R.Cells(9, 1).Value

Pour l'instant lorque j'utilise ma fonction dans Excel, je peux rentré une plage de cellule (et ca marche)de la forme:
=DoPS(A1:A9)

Je souhaiterais avoir le choix quant a la forme de mon expression en entréee de fonction. J'aimerais pouvoir rentré mes parametres sous différents formes comme pour la fonction 'Sum()'. Il faudrait , par exemple que je puisse faire:
-'=DoPS(A1:A3;C4;A5:A9)'
ou
-'=DoPS(A1;C2;A3:A8;D9)'
ou
-'DoPS(A1:A9)

J'espere que quelqu'un pourra m'aider
Merci d'avance.