Sub Formules_Colonnes_B_et_C()
Application.ScreenUpdating = False
DL = [A65500].End(xlUp).Row
Range("B5:B" & DL).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'DA1'!R4C1:R30C2,2,0),"""")"
Range("C5:C" & DL).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],'DA1'!R4C1:R30C3,3,0),"""")"
Range("B5:C" & DL) = Range("B5:C" & DL).Value ' Si on ne veut conserver que les valeurs sans les formules
End Sub