Bonjour,
Comment eviter le probleme de la division par 0, j'ai la formule suivante:
Sht.Range("W3").FormulaLocal = "=SI(OU(ESTERREUR(R3*50)/O3;O3=0);NA();(R3*50)/O3)"
la cellule O3 peut prendre la valeur 0, le calcul aboutit alors à #DIV/0!.
Dans ce cas le résultat devrait être égal à 0.