Erreur copie coller de cellule dans mon code

Bonjour a tous et merci pour votre aide;

j'ai une erreur dans mon code au niveau de .Copy.value je ne comprend pas pourquoi? pourriez vous m'aider?
si je mets que .copy cela marche tres bien mais lorsque je mets Copy.value j'ai erreur de xecution 424

Code:

---

1 2 3 4 5 6

Set produit = Workbooks(nomfichier).Worksheets("Feuil1").Range("A1:A100").Find(what:="Composé", LookAt:=xlWhole) If produit Is Nothing Then Exit Sub Workbooks(nomfichier).Worksheets("Feuil1").Cells(produit.Row + 1, 5).Copy.Value _ Workbooks(nomfichierperso).Worksheets("Semaine N°" & ComboBox3).Cells(1, 1) Workbooks(nomfichier).Close True

---

merci bonne journée

Bonjour,

Oui.
On ne copie pas la valeur.
On copie et on colle la valeur.
Pour coller (Collage spécial/Valeur), voir du côté de la méthode PasteSpecial :

Code:

---

.PasteSpecial Paste:=xlPasteValues

---

cela ne marche pas non plus avec pastespecial..
Dois je mettre ce code apres .copy?
merci cordialement

Code:

---

1 2	Workbooks(nomfichier).Worksheets("Feuil1").Cells(produit.Row + 1, 5).Copy Workbooks(nomfichierperso).Worksheets("Semaine N°" & ComboBox3).Cells(1, 1).PasteSpecial Paste:=xlPasteValues

---

Merci!!!!!