Bonjour,
à tester,
Sub test()
'Dim blabla....
Derlig = Sheets("Odd").Range("A" & Rows.Count - 1).End(xlUp).Row
addrD = Sheets("Odd").Range("A2").CurrentRegion.Address
rowD = Range(addrD).Rows(1).Row
rowF = Range(addrD).Rows.Count + (rowD - 1)
colD = Range(addrD).Columns(1).Column
colF = Range(addrD).Columns.Count + (colD - 1)
addrF = Range(Cells(rowD, colD + 10), Cells(rowF, colF + 10)).Address '10 = colonne J
Sheets("Ecart").Range(addrF).Value = Sheets("Odd").Range(addrD).Value
For lig = 2 To Derlig
Dercol = Sheets("Ecart").Cells(lig, Columns.Count).End(xlToLeft).Column
For col = Dercol To 15 Step -1
Sheets("Ecart").Cells(lig, col) = Sheets("Ecart").Cells(lig, col) - Sheets("Ecart").Cells(lig, col - 1)
Next
Next
End Sub