Option Explicit
Sub Y_a_qqc()
With Sheets("Feuil1")
.Columns(2) = ""
.Columns(1).SpecialCells(xlCellTypeConstants, 23).Offset(, 1).FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],source!C[-1]:C,2,0)),"""",VLOOKUP(Feuil1!RC[-1],source!C[-1]:C,2,0))"
End With
End Sub
00
Pourquoi une macro si crissie maîtrise difficilement RECHERCHEV ??
Une formule ou une petite macro seront les bienvenues.