Ta macro un peu nettoyée :

With Worksheets("Extraction")
.Rows(i).Copy
.Rows(i + 1).Insert
.Cells(i + 1, "P").Value = CDec(.Cells(i, "P").Value -...