XL 2016 Fonction personnel addition d'une zone suivant critère

[quillin]

Bonjour,

J'utilise de plus en plus les fonctions personnelles car j'ai trés souvent des formules conditionnnels complexes qui sont plus lisible en VBA que dans la barre de formule.
Je souhaite en créer une qui permet d'additionner une zone en fonction d'un critère dans mon exemple je souhaite calculer la somme de la cellule AC15 à la cellule AC20 mais ceci en relatif par rapport à la position de la cellule et pas en absolu.
La raison est que ce fichier fait partie d'une étude technique et que je suis amené a deplacer des lignes entiere de bas en haut ou de haut en bas de qui génère trés souvent des references circulaire ou des erreurs de calcul.
je travail donc avec ce type de formule:
"=SUM(INDIRECT(LEFT(ADDRESS(1;COLUMN();4);LEN(ADDRESS(1;COLUMN();4))-1) &ROW()-COUNTIF($A$4:INDIRECT("A"&ROW()+1);K21)-3):INDIRECT(LEFT(ADDRESS(1;COLUMN();4);LEN(ADDRESS(1;COLUMN();4))-1) &ROW()-1))"

Et je voudrais la tranposer dans ma fonction personnel en VBA sachant que je vais avoir des conditions a ajouter qui vont modifier les formules.