Bonjour, une petite macro probablement à adapter au nombre de colonnes de la feuille 1 :
Option Explicit
Sub Sommes()
Dim j As Long, nL As Long, total As Double
Dim wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Sheets("Feuil1")
Set wS2 = Sheets("Feuil2")
nL = wS1.Cells(Rows.Count, "A").End(xlUp).Row
For j = 1 To nL
total = wS1.Cells(j, 2) + wS1.Cells(j, 4)
wS2.Cells(j + 1, 2) = total
Next j
End Sub