transférer des données sur une autre feuille

[nadog]

Bonjour à vous,

J'essaie de transférer des prix d'articles qui proviennent d'une autre feuille mais cela ne fonctionne pas très bien. Le numéro de la pièce se transfert mais le prix ne s'affiche pas.
voici le VB et je mets en annexe le fichier, cela sera plus facile à comprendre.
Il doit y avoir quelque chose que j'ai oublié. En passant, je suis un débutant.
Merci de votre aide.

Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("données")
Set pasteSheet = Worksheets("données")

copySheet.Range("g2").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(0, 6).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

 

[cp4]

Bonjour,

La feuille source et de destination sont identiques.
Set copySheet = Worksheets("données")
Set pasteSheet = Worksheets("données")

Bonne journée.