VBA tableau et insertion de formule

Option Explicit

Sub somme()

Dim ligne As Integer
Dim taille_total As Integer
Dim n As Integer 'n permet de connaitre le nombre de ligne de ton tableau

taille_total = Rows("1048576").End(xlUp).Row + 1 '+1 pour avoir la ligne 
'après la dernière ligne non vide de ton tableau
n = 0

For ligne = 1 To taille_total 'met la première ligne de ton premier tableau 
'à la place de 1
    If Range("A" & ligne).Value <> Empty Then 'si tes tableaux on 
'des entetes, tu peux faire une autre vérification (par exemple 
'IsNumeric(Range("A" & ligne).Value) )
        n = n + 1 'on incremente 1 à chaque fois qu'il s'agit d'une cellule 
'à ajouter (non vide)
    Else:
        If n <> 0 Then 'sinon on vérifie que n n'est pas nulle (si il y a 
'plusieurs lignes vide entre tes tableaux)
            Range("A" & ligne).FormulaR1C1 = "=sum(R[-1]C:R[-" & n & "]C)" 
'on fait la somme de la ligne -n jusqu'à la ligne -1
            n = 0 'on remet n à 0 car il n'y à plus rien à ajouter
        End If
    End If
Next ligne

End Sub