Visual Basic: Formule SOMME.SI jusqu'à la dernière ligne

Bonjour,

Je ne sais pas comment écrire en Visual Basic la formule suivante:

=SI($F2<>0;SOMME.SI($A$2:$A$8569;$A2;$AK$2:$AK$8569);"")

En fait, je veux que ma Macro copie cette formule dans chaque cellule de 'BI', jusqu'à la dernière donnée de 'A', dont le numéro de ligne changera hebdomadairement de façon imprévisible. pour ça, ça va. Je connais cette méthode pour copier la formule:

Range("BI2").Select
derlig = Columns("A").Find("*", , , , , xlPrevious).Row
With Range("BI2")
.FormulaR1C1 = _
La formule"
.AutoFill Destination:=Range("BI2:BI" & derlig)
End With

Mon problème est la formule elle-même. Je ne sais pas comment l'écrire pour qu'elle cherche dans 'A' jusqu'à la dernière ligne aisni que dans 'AK'.

Voici le lien à mon fichier échantillon: https://www.cjoint.com/?3LerFK5k2yy

Merci :-)