Sub test()
Sheets("Frégate Reco").Select
derc = Range("A7").End(xlToRight).Offset(0, 1).Column
derl = Range("a8").SpecialCells(xlCellTypeLastCell).Row
For i = 8 To derl
Cells(i, derc).FormulaR1C1 = _
"=IF(RC5="""","""",(IF(ISERROR(VLOOKUP(RC5,annuaire!C1,1,FALSE)),""Absent"",(VLOOKUP(RC5,annuaire!C1,1,FALSE)))))"
Next
End Sub