[résolu] Automatiser une fonction excel sur vba

Bonjour a tous,

Je suis débutant en vba, et j'ai un problème pour automatiser une formule d'excel sur vba. Cette formule s'appelle polyA et elle permet de calculer les coefficients d'une courbe par la méthode des moindres carrés. Dans mon cas je veux une droite horizontale donc un polynome de degré 0.
4 parametre doivent etre entrés pour cette fonction :
Mat x : la colonne des abcisses
Mat y : la colonne des ordonnées
N : le degré du polynome (ici 0)
I : un coefficient qui vaut 1 par defaut

Mes abcisses se trouvent dans la colonne G et mes ordonnées dans la colonne K.
J'arrive a appliquer la formule en entrant une plage de données précises (ex : Formula = "=PolyA(G2:G38, K2:K38, 0, 1)" ), mais ce que je voudrais c'est que ca s'enchaine sur les plages de données qui suivent. En gros sur une feuille de calcul j'ai 500 blocs de ligne allant de start a fin, soit autant de fois polyA à appliquer.

Voici mon code :

Sub PolyA()

 
Dim index As Long

Dim nb As Integer

Dim start As Long (ligne de début pour un vehicule)

Dim fin As Long (ligne de fin pour le meme vehicule)

Dim Val As Integer

 
    index = 2

    nb = 0

    start = 2

    fin = 2

    Val = 0

 
    Dim nbligne As Long

 
    nbligne = 66000

 
    Do

 
        Val = Cells(index, 2).Value

 
        Do

 
             index = index + 1

             nb = nb + 1

 
        Loop While Cells(index, 2).Value = Val

 
        If Cells(index, 2).Value = "" Then

            nb = nb - 1

        End If

 
        fin = start + nb - 1

'start et fin correspondent aux indices de 1ère et dernière ligne d'une série de données, donc une fois que la formule est appliquée a la série de start à fin, le start devient le fin+1 et le nouveau fin est déterminé avec la boucle du dessus'

 
       Dim coef As String

       Dim valeur As Integer

 
             For i = start To fin

             coef = "=PolyA(" & Cells(i, 7) & ";" & Cells(i, 11) & ";0;1)"

             Next

 
       coef = valeur

       Cells(start, 12).Value = valeur

'C'est le passage ci d"essus qui m'embete'

 
        start = index

        nb = 0

 
        If IsEmpty(Cells(index, 2)) Then

             index = nbligne + 1

        End If

 
    Loop While index < nbligne

 
End Sub

Quand je lance la macro je n'ai pas d'erreur ce qui est déjà une bonne chose; mais par contre j'ai un problème en ce qui concerne le résultat de ma formule, il me met 0 pour chaque série de données, comme si ca ne calculait pas.
QUand je fais le pas a pas, j'ai bien les bonnes valeurs de mes parametres dans ma formule polyA, mais après je sais pas. Est ce qu'il faut que je modifie coef pour mettre quelque chose de type .Formula?
Donc voilà si quelqu'un pouvait eclairer ma lanterne sur cette fonction ca m'aiderait grandement.
J'espere avoir été clair, merci d'avance

edit : désolé pour l'affichage non réglementaire