Sub AjoutLiens()
Dim c As Range, lien As String
For Each c In Selection
If Not IsEmpty(c) Then
lien = c.Text
c.Hyperlinks.Add Anchor:=c, Address:=lien, _
ScreenTip:=lien, TextToDisplay:=lien
End If
Next c
End Sub