Sub toto()
ThisWorkbook.Activate
With Sheets("Ventes")
Déb = 5
Fin = .Range("a" & .Rows.Count).End(xlUp).Row
For I = Déb To Fin
.Cells(Déb, 16).FormulaR1C1 = "=RC[-1]*1.196"
.Cells(Déb, 17).FormulaR1C1 = "=IF(OR(RC[-7]<=0,RC[-7]=""""),"""",RC[-7]-RC[-1])"
Déb = Déb + 1
Next
End With
End Sub