Entire row copy mais avec lien

Bonjour et bonne année à tous,

j'ai le code suivant qui me permet de copier une ligne et de la coller dans un autre onglet

sauf que voila j'ai des liens dans la même ligne qui une fois collé ne sont plus de liens juste une copie du texte à afficher..

Rows(i).EntireRow.Copy
Sheets("INDUSTRIEL").Range("A" & Sheets("INDUSTRIEL").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Sheets("INDUSTRIEL").Range("A" & Sheets("INDUSTRIEL").Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats
Sheets("INDUSTRIEL").Range("A:M").Columns.AutoFit

Une idée de comment procéder afin de conserver les liens en question?

merci par avance,

bonne journée

Bonjour, Normal vous avez effectué un collage spécial "Valeur" :

Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues

Vous collez donc les valeurs ce n'est pas la même chose.

il faut dans ce cas faire un simple collage

Rows.Count).End(xlUp).Row + 1).Paste

Oui mais je veux pouvoir garder la mise en forme également

Un lien est une mise en forme donc si la mise en forme n'est pas copiée pas de lien.

Ah ok merci pour cette information mais alors comment dois je procéder pour que le lien soit conserver?

quand je tente:

Sheets("INDUSTRIEL").Range("A" & Sheets("INDUSTRIEL").Range("A" & Rows.Count).End(xlUp).Row + 1).Paste

ca me renvoi erreur 438

bonjour,

Une petite aide serait sympathique

merci par avance et bonne journée