Bonjour,

J'ai trouvé un code qui marche bien et qui additionne des valeurs d'une ligne sur l'autre mais il n'est pas très pratique car il faut faire une ligne de code pour ajouter deux valeurs.
J'aimerais savoir comment simplifier ce code? Si quelqu'un pouvait m'aider? merci.
Je souhaite obtenir ceci:


ligne1 2 4 1 3 10 6 8 7 12 36 58 7 4 2
ligne2 10 2 3 5 6 3 7 8 9 15 56 8 7 1
resultat 12 6 4 8 16 9 15 15 21 51 114 15 11 3



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub calcul()
 
 
'Activation de la feuille 3
Sheets("calcul").Activate
 
Cells(9, 1).Value = WorksheetFunction.Sum(Feuil10.Range("A7:A8"))
Cells(9, 2).Value = WorksheetFunction.Sum(Feuil10.Range("B7:B8"))
Cells(9, 3).Value = WorksheetFunction.Sum(Feuil10.Range("C7:C8"))
Cells(9, 4).Value = WorksheetFunction.Sum(Feuil10.Range("D7:D8"))
Cells(9, 5).Value = WorksheetFunction.Sum(Feuil10.Range("E7:E8"))
 
 End Sub