Workbooks("Classeur1.xlsm").Activate
AncienneQuantité = Sheets("Feuil1").Range("E" & L)
' Recalcul l'ancienne somme avec les anciennes moyennes et quantité
AncienneSomme = Sheets("Feuil1").Range("D" & L) * AncienneQuantité
' Stocke la nouvelle moyenne
Sheets("Feuil1").Range("D" & L) = (AncienneSomme + NouvelleValeur) / (AncienneQuantité + 1)
' Stocke la...