1.   'Calcul du total 1
2.         	j = NbColonnes
3.         	For i = 2 To NbLignes
4.   'Calculer la somme des cellules des colonnes paires
5.        		Cells(i, NbColonnes).Formula = Evaluate("=SOMMEPROD((MOD(" & Range(Cells(i, 2), Cells(i, j - 2)) & ");2=0)*(" & Range(Cells(i, 2), Cells(i, j - 2)).AddressLocal & "))")
6.   			j = j - 2
7.        	Next i