Sub test()
With Sheets("feuille test").Range("AR19:AR1500")
.FormulaLocal = "=J19/G19/$J$1629*(-$J$1635)+(M19*N19)"
End With
For i = 19 To 1500
If IsError(Cells(i, 44).Value) Then
Cells(i, 44).Value = ""
Else
Cells(i, 15) = Cells(i, 44)
End If
Next i
End Sub