Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Target(1)
With Application
If Intersect(Target, Columns(1)) Is Nothing Or .CutCopyMode = 0 Then Exit Sub
.ScreenUpdating = False
.EnableEvents = False
On Error Resume Next 'sécurité
Paste Link:=True 'collage avec liaison
If Selection.Count > 1 Then Application.DisplayAlerts = False: Application.Quit 'sécurité
Target(1, 2) = Mid(Target.Formula, 3)
Target(1, 2) = Replace(Left(Target(1, 2), InStr(Target(1, 2), "]") - 1), "[", "")
Target(1, 2) = Workbooks(Target(1, 2).Text).FullName 'avec le chemin d'accès
Target = Target 'supprime la...