Sub som_bis_II()
[COLOR=SeaGreen]'Déclarations[/COLOR]
Dim r As Long
[COLOR=SeaGreen]'numéro de la dernière ligne non vide (colonne G)[/COLOR]
r = Range("G65536").End(xlUp).Row - 5
[COLOR=SeaGreen]'décalage de 2 cellules vers le bas
'à partir de la dernière cellule non vide de la colonne G[/COLOR]
With Range("G65536").End(xlUp).Offset(2, 0)
.FormulaR1C1 = _
"=SUM(R[-" & CStr(r) & "]C:R[-2]C)"
[COLOR=SeaGreen] 'mets en gras[/COLOR]
.Font.Bold = True
[COLOR=SeaGreen] 'taille 14[/COLOR]
.Font.Size = 14
[COLOR=SeaGreen]'couleur de fond[/COLOR]
.Interior.ColorIndex = 33
[COLOR=SeaGreen]'insertion bordures [/COLOR]
.BorderAround xlDouble, xlMedium, 19
End With
End Sub