SSub liens()
Application.ScreenUpdating = False
With Sheets(1)
For Each c In .[A2].Resize(Application.CountA(.[A:A]) - 1, 1)
fich = Dir(c.Offset(0, 1) & "\" & c & ".*")
If fich <> "" Then c.Offset(0, 2).FormulaLocal = "=LIEN_HYPERTEXTE(""" & c.Offset(0, 1) & "\" & fich & """)"
Next c
End With
Application.ScreenUpdating = True
End Sub