Salut Eworks, Slt le Forum
ou bien en tirant la formule de Raja vers le bas tout en respectant les $ !!!!!!!!!!
=SIERREUR(RECHERCHEV(B3;App!$A$1:$B$50000;2;FALSE);"")
ou bien essaie cete macro
Sub inserer_formule()
Dim sht As Worksheet
Set sht = Worksheets("Index")
With sht
.Range("D3").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],App!R1C1:R61C2,2,FALSE),"""")"
.Range("D3").Copy
.Range("D4:D50000").PasteSpecial (xlPasteAll)
End With
End Sub