Problème de synthaxe

Bonjour,

je suis en détresse, je galère depuis hier 14h sur une pauvre erreur de synthaxe que je n'arrive pas à trouver....

le fichier ci joint est prêt à être lancer, tout est dedans ^^

Bonjour,

de ce que j'ai compris

Sub calcul_avantH()
    With Sheets("distancier")
        i = 17
        'recherche première cellule non-vide en colonne V
        While .Cells(i, "V") = ""
            i = i + 1
        Wend
        ' fi = première ligne non vide
        fi = i
        ' formule qu'il faudra recopier vers le bas
        formule = "=IF($G$" & fi - 1 & "-$G$" & fi - 2 & ">$L$" & fi - 2 & "+L" & i & "+T" & i & "+V" & i & ",$L$" & fi - 2 & "+L" & i & "+T" & i & "+V" & i & ",""impossible"")"
        ' recherche de la première ligne vide à partir de fi
        While .Cells(i, "v") <> ""
            i = i + 1
        Wend
        i = i - 1 'i = dernière ligne non vide à partir de fi
        .Range("W" & fi & ":W" & i).Formula = formule 'on copie la formule de la ligne fi à la ligne i
    End With
End Sub