Pour mon code #16, un petit oubli
Remplace la ligne 20 par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Range("K" & j & ":K" & j + i).Formula = "=IFERROR(IF(ISNUMBER(I" & j & "),I" & j & ",VALUE(REPLACE(I" & j & ",SEARCH("","",I" & j & ",1),1,"".""))),0)"