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 : Sélectionner tout - Visualiser dans une fenêtre à part
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