Somme de plusieurs cellules sujet

Bonjour à tous,

J'explique mon problème

J'ai une plage de données de la colonne A à D
Je souhaite dans la colonne E faire la somme de chaque ligne de ma plage de données.

J'ai essayé ce code mais il ne m'affiche rien.

Code:

---

1 2 3 4 5 6

Sub test() Columns("E").Select For i = 2 To 1000 ActiveCell.Value = WorksheetFunction.Sum(Range("A2:D2")) Next i End Sub

---

Merci de votre aide