Sub MaSomme()
Dim Total&
Dim Derlig&
Derlig = Worksheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H" & Derlig) = Application.Sum([H:H]) - Application.Sum([H1:H8])
Range("I" & Derlig) = Application.Sum([I:I]) - Application.Sum([I1:I8])
End Sub