Lien Hypertext

bonsoir Drfreud

j'espere que la macro ci dessous pourra t'aider
un lien est inséré dans les cellules de la colonne A

Sub InsertLien()
Dim Cell As Range
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Hyperlinks.Add Anchor:=Cell, Address:="http://mon_fichier_" & Cell & ".html"
Next Cell
End Sub

bonne soirée
michel

bonsoir

ci joint la procedure modifiée . suite au message que j'ai reçu de Julien ( message d'erreur 424 lors de l'utilisation de la macro )
il reste à adapter le nom de la feuille en fonction de ton projet

Sub InsertLien()
Dim Cell As Range
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Worksheets("Feuil1").Hyperlinks.Add Anchor:=Cell, Address:="http://mon_fichier_" & Cell & ".html"
Next Cell
End Sub

bonne soirée
michel