bonjour Robjam, merci de ce travail, qui correspond en quelques sortes à ma demande mais c'était plus pour le mettre dans le fichier "Achats Fournisseurs" en colonne i et pas dans Economat. Ceci dit cela peut faire aussi.
Je vais essayer de voir si je peut bidouiller cela.
Ceci dit j'avais volontairement raccourci la liste des produits à traiter, celle ci comporte 450 référence et à voir le temps que prend seulement les 20 premières, je me demande si il n'y a pas un moyen plus rapide ?
J'avais récupéré ce qui suit mais impossible de fonctionner. (argument non facultatif)
Sub total_Change(ByVal Target As Range)
' Touche de raccourci du clavier: Ctrl+t
If Target.CountLarge > 0 Then Exit Sub
If Not Intersect(Target, [E7:E20]) Is Nothing Then
Target.Offset(, 11).Value = Target.Offset(, 11).Value + Target.Value
End If
End Sub