Somme des nombres dans la sélection -

Additionne tous les nombres de la région sélectionnée et place la somme dans "A1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Parcourez chaque cellule de la sélection Pour chaque cellule de la sélection' Ajoutez la valeur à la variable somme somme = somme + cellule Valeur Cellule suivante Cellules (1, 1) = somme Fin Sous