Bonjour a tous,

Voila mon problème:
Dans une colonne A, je crée via VBA un hyperlien basé sur le contenu des cellules de cette colonne (voir extrait de code ci-après)
Je voudrais alors créer ce même lien dans la cellule voisine de la colonne B
Ma feuille se présente ainsi:

Colonne A | Colonne B
101 blabla
102 blablu
103 blibla

Le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Sub hyperlien()
Dim cel As Range
Dim mon_lien As String
For Each cel In Range([A2], [A657].End(xlUp))
mon_lien = cel.Value & "suite_de_mon_lien"
ActiveSheet.Hyperlinks.Add cel, mon_lien
Next c
End Sub
Voila, en esperant avoir été clair et vous remerciant d'avance pour votre aide !