Macro avec Fonction Somme qui sélection automatiquement

bonjour,

J'ai un problème, je dois faire une feuille de caisse pour mon travail mais je n'arrive pas a faire un macro qui place la fonction =somme() et qui sélectionne automatiquement les donnée au dessus comme fait le bouton sommes automatique.

Voici ma formule que j'ai essayer:

Sub saut_de_tableau()
'
' saut_de_tableau Macro
'

'
    Range("G8").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select

    Valeur = Cellule.Value
    Somme = Application.WorksheetFunction.Sum(Ciible.Resize(i, 1), Valeur)

End Sub

Bonjour,

Si j'ai bien compris, peut-être une chose du genre ?

Sub saut_de_tableau()
Dim Lastrow As Long

Lastrow = Range("G8").End(xlDown).Row
Cells(Lastrow + 1, 7).Value = Application.WorksheetFunction.Sum(ActiveSheet.Range("G8:G" & Lastrow))
End Sub