Sub Hyperlien()
'macro pour créer les liens hypertextes sur une base libellé/adresse dans une feuille de calcul.
Dim libellé, adresse, cell
On Error Resume Next
For Each cell In Selection
libellé = cell.Value
adresse = cell.Offset(0, 1).Value
ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=adresse
Next
End Sub