Bonsoir LucasP, Rag02700, tous,
Dans le même esprit et pour retranscrire une formule avec un exemple :
Option Explicit
Sub test()
Debug.Print ActiveCell.FormulaR1C1
End Sub
Ce qui donne dans la fenêtre exécution (là, vous pouvez copier le code) :
=IF(ISNA(VLOOKUP(R[1]C,R1C5:R25C6,2,FALSE)),"",VLOOKUP(R[1]C,R1C5:R25C6,2,FALSE))
Voila, bonne soirée à tous;
AL 22