Somme (=SUM) avec variable dernière ligne de tableau

Bonjour à tous,

tout nouveau sur le forum car je sèche sur des formules simples de sommes et mise en forme sur la dernière ligne d'un fichier.

Après plusieurs tentatives infructueuses et de nombreuses pages de forum lues, je me lance.

Sur mon fichier qui est généré avec des données récupérées d'une base, les champes des colonnes J à M sont à compléter et je ne connais pas le nombre de lignes du fichier qui peuvent varier.

Exemple de fichier généré :

Je cherche donc à appliquer une formule somme (=SUM) de chaque colonne J à M après la dernière ligne, ici la 6, qui sera calculée une fois les données renseignées dans les cellules J2 à M5.

j'arrive à faire la somme en colonne N : Range("N2").FormulaR1C1 = "=SUM(RC[-4]:RC[-1])" et à l'étirer jusqu'à la dernière ligne.

j'arrive à récupérer la valeur de la dernière ligne :

DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row

mais je n'arrive pas à l'intégrer :

• ni pour la somme que je souhaite :

Range("J6").Formula = "=SUM(R[-5]C:R[-1]C)"

J6 est bien DerniereLigne +1

R[-5] est bien R[-DerniereLigne]

en essayant Range("J" & DerniereLigne +1).Formula = "=SUM(R[-DerniereLigne]C:R[-1]C)"

j'ai une belle erreur d'exécution

• ni pour la mise en forme :

Range("H6:N6").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With

même erreur avec la syntaxe suivante :

Range("H:N" & DerniereLigne + 1).Select

j'en ai testé d'autre et j'avoue ne pas savoir comment passer la valeur de dernière ligne dans ces cas présentés.

merci de votre aide

Bonsoir

en essayant Range("J" & DerniereLigne +1).Formula = "=SUM(R[-DerniereLigne]C:R[-1]C)"

En comme ceci --> en essayant --> "=SUM(R[-" & DerniereLigne & "]C:R[-1]C)"

Cordialement

edit :

ni pour la mise en forme :

essayez ceci :

With Range("H" & derniereligne & ":N" & derniereligne).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With

merci beaucoup Dan

en ajoutant +1 j'ai la bordure au bon endroit , c'est parfait

With Range("H" & derniereligne +1 & ":N" & derniereligne +1).Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlMedium End With