Bonjour, pas trop compris qu'elles cellules sont à vérifier et quelles cellules sont à additionner ?
Cependant vos Cells.value("B3") c'est écrit dans le désordre : And Cells("B3").value ....
De plus si vous lancez votre macro plusieurs fois alors la valeur de D17 va changer à chaque fois si les conditions précédentes sont remplies. étrange.