MACRO : Etendre les formules automatiquement

Option Explicit
Sub For_X_to_Next_Ligne() 'parcourt chaque ligne sur colonne A
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim Formule
    Set FL1 = Worksheets("Feuil1") 'a adapter
    NoCol = 1 'colonne A a adapter
    For NoLig = 1 To Range("A" & Rows.Count).End(xlUp).Row ' dernière ligne remplie
        Var = FL1.Cells(NoLig, NoCol)
        Formule = "=SOMME(B" & NoLig & ":" & "A" & NoLig & ")" 'on écrit la formule a adapter
Sheets("Feuil1").Range("A" & NoLig).FormulaLocal = Formule 'on met la formule sur chaque ligne de la colonne A a adapter
    Next
    Set FL1 = Nothing
End Sub