Option Explicit
Public Sub prccalcul()
Dim i As Integer
With Sheets("BDD")
For i = Range("A5000").End(xlUp).Row To 2 Step -1
If Cells(i, 1).Interior.ColorIndex = 2 Then
Cells(i, 13).Select
ActiveCell.FormulaR1C1 = _
"=(IF(ISERROR(VLOOKUP(RC[-9],'Extraction SAP'!R1C2:R1000C16,6,FALSE)),0,VLOOKUP(RC[-9],'Extraction SAP'!R1C2:R1000C16,6,FALSE)))"
End If
Next i
End With
End Sub