'==Ici, je souhaite mettre dans la dernière cellule, le résultat de la somme de la colonne B.
Range("b" & DLigne + 1).Select
somme1 = DLigne + 1 - DLigne - DLigne
somme2 = DLigne - DLigne - 1
MsgBox "Première ligne = " & somme1 & Chr(10) & Chr(10) & _
"Deuxième ligne = " & somme2
Selection.FormulaR1C1 = "=SUM(R[" & somme1 & "]C[]:R[" & somme2 & "]C[])"