Feuille Active sheet copy en valeur

Bonjour le forum,

J'essais d'aider un autre membre du forum iliyes

Je voudrais adapter se code expl:

With ActiveSheet

.Range("E5").Value = .Range("E12").Value ETC.........

End With

pour lorsque la copy de la feuille active (Recap) est envoyé par mail que la colonne E5 à E12 et F5 à F12 soit en valeur,

Le hic c'est que mon code fonctionne mais il change modifie la feuille actife du classeur se qui ne doit pas être la cas,

Merci pour me donner une idée

Bonsoir si j'ai bien compris le soucis

rajoute les lignes suivantes apres la copie de ta feuille fers un nouveau classeur

  ' Copie la feuille active dans un nouveau classeur.
   ActiveSheet.Copy

   ActiveSheet.Range("E5:E10") = wbSource.Sheets("Recap Année").Range("E5:E10").Value
   ActiveSheet.Range("F5:F10") = wbSource.Sheets("Recap Année").Range("F5:F10").Value

Fred

Bonsoir Fred,

Je te remercie déjà pour ta réponse,je teste cela des que j'arrive chez moi , merci

Cordialement

kira

Bonsoir Fred2406 et le reste du forum

J'ai essayer ton code et cela fonctionne

Je te remercie pour ton aide

Cordialement Kira