Bonjour,
ci joint la formule magique qui totalisent un nombre variable de lignes
Vlign est le nombre de lignes dans la colonne I, ligne est la ligne de depart
dans la colonne i
Vlign = 1 + Selection.Rows.Count - Ligne
Range("I1").FormulaR1C1 = "=SUM(R[" & Vlign + Ligne & "]C:R[3]C)"