Next For au sein d'un with Range

Pour mon code #16, un petit oubli
Remplace la ligne 20 par

Code:

---

.Range("K" & j & ":K" & j + i).Formula = "=IFERROR(IF(ISNUMBER(I" & j & "),I" & j & ",VALUE(REPLACE(I" & j & ",SEARCH("","",I" & j & ",1),1,"".""))),0)"

---