Copie dans de différents onglets

Bonne année les Kracks,

Tous mes voeux de bonne santé! :chin:

Pour bien démarrer l'année, je souhaiterai effectuer sur des onglets prédéfinis différentes tâches (je vous mets ici que celle en bleu, qui me pose également un problème! :oops:)

Code:

---

1 2 3 4 5

Dim sh As Worksheet Set sh = "Sheet1" and "Sheet5" and "Sheet8" For Each sh In ThisWorkbook.Worksheets Cells(Range("A65000").End(xlUp).Row,16.copy Next sh

---

1.Mon code ne boucle pas (prend seulement la feuille active)
2.Pour éviter des "Active" ou "Select" j'ai essayé de remplacer mes lignes d'écriture par le code en bleu, mais j'ai un souci!:zekill:

D'avance merci,

Bonjour,

Perso je ferais quelque chose comme cela

Code:

---

1 2 3 4 5 6 7 8

Dim sh As Worksheet   For Each sh In ThisWorkbook.Worksheets select case sh.name case "Sheet1","Sheet5","Sheet8" sh.Cells(Range("A65000").End(xlUp).Row,16.copy end select Next sh

---

Bonsoir Jérôme,

J'avais un problème avec la boucle, elle ne prenais pas?

Code:

---

sh.Cells(Range("A1))

---

Il manquait une parenthèse...:calim2: Rien que ça m'a pris un temps dingue!:arf:
Dans mon cas, c'était:

Code:

---

Case Is <> "Sheet1" etc...

---

Merci pour l'idée du code,