Sub Liens()
Dim plage As Range
Application.ScreenUpdating = False
On Error Resume Next 'sécurité
Set plage = Range("A2", [A65536].End(xlUp))
[A:A].Insert
plage.Offset(, -1) = plage.Value
plage.SpecialCells(xlCellTypeConstants, 2).FormulaR1C1 _
= "=HYPERLINK(""S:\articles\""&RC1&"".pdf"",RC1)"
plage = plage.Value 'supprime les formules
[A:A].Delete
End Sub