'Saisie du FullName du fichier Codification
test = Application.GetOpenFilename(Title:="Ouverture fichier codification")
'Formule Recherche V
If VarType(test) = vbString Then Range("C2").FormulaR1C1 = "=IF(RC[-2]=""X"",IFERROR(VLOOKUP(RC[-1]," & _
AddrExt(test, "Composant") & "R1C1:R65536C2,2,FALSE),""A codifier""),RC[-1])"