BOnjour à tous,

Je doit copier le contenu de plusieurs cellules dont certaines contiennent un lien hypertexte d'une feuille(Tableau) à une autre(Compilation). Le code copie le contenu de la cellule, mais pas le lien qui s'y rattache.
Voici le code de copie:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
toutelaligne = False
colc = 0
 
' Transfert de chaque cellule de l'offre d'emploi
Do While Not toutelaligne
    If colc < 17 Then
       colc = colc + 1
       Worksheets("Compilation").Cells(lignec, colc).Value = Worksheet("Tableau").Cells(lignet, colc).Value
    Else: toutelaligne = True
    End If
Loop
Quelqu'un sait comment faire pour faire suivre le lien hypertexte dans la feuille de destination de la copie?

Merci d'avance