Chemin1 = "X:\communication_interne\gestion_temps\Références classées avn.xls"
If Dir(Chemin1) <> "" Then
fichier = "'C:\[bd1.xls]Feuil1'!$A$1:$B$65000"
Application.EnableEvents = False
Target.Offset(, 1).Formula = "=VLOOKUP(" & Target & "," & fichier & ",2,FALSE)"
MsgBox Target.Offset(, 1).Formula
If Application.IsNA(Target.Offset(, 1)) Then _
MsgBox "Nom inconnu": Target.Offset(, 1) = "": Target.Select
Target.Offset(, 1).Value = Target.Offset(, 1).Value