[VBA-E] Pb sur la méthode Cut

Bjr,
j'exécute la même macro sur tous les classeurs présents dans un même répertoire, sauf celui qui contient la macro. J'utilise une boucle For each classeur in..... Next.
Pour le premier classeur tout se passe sans soucis. pour le deuxième classeur, la macro s'éxécute sans problème, c'est à dire qu'elle crée bien ma plage de données mais c'est lors de l'export que ça pose pb.
Elle bug à cette ligne

Code:

---

1 2	Classeur.Sheets("Source").Range("B1401:E65536").Cut _ (ThisWorkbook.Sheets("Restitution").Range("B" & Numrow3))

---

et j'obtiens comme message d'erreur que la méthode cut de l'objet range a échoué. je ne comprends pas dans la mesure où pour le premier classeur elle fonctionne. Et mes deux classeurs sont identiques.:cry:
Help please. merci

Feuille protégée ?

Non, j'ai un classeur.unprotect avant.

essai de faire la copie "à la main" histoire de ...

Le .cut ne fonctionne que si je spécifie dans mon range une plage de cellules non vides.:?(cad, mettre range ("B1401:E13512") au lieu de range ("B1401:E65536") . Or pour mon premier classeur où le . cut fonctionne je n'ai que 1725 lignes, vs 12111 pour le 2ème. dans un cas le fait prendre la plage la plus large possible ne semble pas poser pb, mais ensuite bug.
Je vais donc essayer de délimiter mon range de manière dynamique.

en fait cela doit dépendre d'ou tu colle et de ton
Numrow3 ... si numrow3 trop grand du déborde des 65535 lignes de ta feuille ;)

Bon j'ai vérifié et le numrow3 ne pose pas de pb dans la mesure ou pour le premier classeur c'était la même plage de cellules qui était copiée.
Finalement j'ai pu trouver une solution en nommant ma plage de données et en la redimensionnant pour chaque classeur.Et vu que je ne récuèpe que des cellules non vides le .cut fonctionne.
merci qd mm;)

le probléme de
Numrow3 ne viens pas de la feuille copiée mais de la feuille destination...si Numrow3 > 1401 débordement..