LargeurBase = Sheets("paiement").Range("IV3").End(xlToLeft).Column
=(BJ2+BH2+BF2)-BD2
For i = 19 To 35
Sheets("paiement").Cells(der_lig, i - 15).Value = .Range("A" & i).Value
Sheets("paiement").Cells(der_lig, i + 2).Value = .Range("C" & i).Value
Next i