Copie de plage sans .Select

Bonjour,

Afin de pouvoir verouiller mes feuilles Excel tout en faisant fonctionner mes macros, je souhaites enlever tous mes .Select dans mon code. Cependant j'ai un problème lors de la refonte d'une copie de plage. Voici mon code avant :

Code:

---

1 2 3 4 5

Plage = "A1:M" & derniereLigneTableau Sheets("Demandes").Activate Range(Plage).Select Selection.Copy Usr_Affiche.Spsheet_Demande.Range("A1").Paste

---

Que j'ai donc remplacé par :

Code:

---

Sheets("Demandes").Range("A1:M" & derniereLigneTableau).Copy Usr_Affiche.Spsheet_Demande.Range("A1")

---

Mais mon nouveau code m'affiche l'erreur :

Erreur d'éxécution '1004'
La méthode Copy de la classe Range à échoué

Je ne comprends pas où est mon erreur, est-ce que quelqu'un peut m'aider svp?

Bonjour,

Citation:

---

Afin de pouvoir verouiller mes feuilles Excel

---

A tout hasard, la plage de destination ne serait pas protégée?

EDIT : Si la plage de destination est protégée, il est normal d'avoir une erreur 1004

Et avec :

Code:

---

1 2	Sheets("Demandes").Range("A1:M" & derniereLigneTableau).Copy Usr_Affiche.Spsheet_Demande.Range("A1").Paste

---

jfontaine : Non ma feuille (ni ma plage) n'est pas protégée pour le moment, c'est ce que je souhaites faire justement!

ZebreLoup : Je test ça je te redis.

Merci à vous deux