On définit une fonction de cette manière:
Function Ma_Super_Fonction(Argument1 As Range)
End Function
Donc dans votre cas, Argument devras être une variable de type Range qui contiendras la plage de cellules à calculer.
Les variables sont définis en début de fonction:
Dim cellule As Object
Dim mémoire As Double
A compléter selon votre besoin.
Voici comment boucler sur tout les éléments de l'argument range:
For Each cellule In Argument1
'Code
Next cellule
Exemple, l'argument est A1:A10 la variable Cellule va successivement contenir la valeur de A1,A2,A3,.....A10
Le fameux "IF" indispensable à la programmation:
If IsNumeric(cellule) Then
'code
End If
Pour être sûr que nous réalisons nos calculs sur les valeurs numérique, et ignorer le reste.
Je pense qu'il y a déjà matière à produire un début de code ?
A+