Bonjour le forum,
J'ai puisé ce code dans le fil "Hyperlien" :
Sub Lien_Hypertext()
For Each Cell In Selection
Cell.select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cell.Value, TextToDisplay _
:=Cell.Value
Next
End Sub
'En savoir plus sur...