Salut robi-wane
Macro à insérer dans le module de la feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, [A1]) Is Nothing Then
If Dir("C:\Excel\" & [A1] & ".xls") = "" Then 'Change pour ton répertoire
MsgBox "le fichier est introuvable!"
[B2] = ""
Exit Sub
End If
[B2].FormulaR1C1 = "=[" & [A1] & ".xls]Feuil1!R4C3"
End If
End Sub
Mytå