copier coller optimiser

bonjour a tous

j'ai un code que j'essaie d'améliorer mais qui plante

à l'origine j'ai ceci qui fonctionne très bien

Code:

---

1 2 3 4 5 6 7 8

Windows("COMMANDE.xls").Activate Range("b2:b100").Select Selection.Copy Windows("LISTE.xls").Activate Range("b65536").End(xlUp).Select ' pour allez a la dernière ligne de la colone b ActiveCell.Offset(1, 0).Select 'decale d'une colone ActiveSheet.Paste

---

j'ai essayé de l'optimisé, mais ça plante

Code:

---

1 2	Windows("COMMANDE.xls").Sheets("prepafact").Range("b2:b100").Copy Windows("LISTE.xls").Range("b65536").End(xlUp).Offset(1, 0) 'decale d'une colone

---

d'ailleur tant qu'a l'améliorer comment modifier le "b2:b10" en b2 jusqu'a la dernière cellule non vide ?

Bonjour Bosk1000

Il me semble qu'il manque le nom de la feuille dans la plage de destination...

Bonne journée
@+

comme il n'y a qu'une seul feuille, j'ai pas jugé utile de la spécifié

bonjour bosk,pierrot le forum comme cela non ??

Code:

---

1 2	Workbooks("COMMANDE.xls").Sheets("prepafact").Range("b2:b" & Range("b65536").End(xlUp).Row).Copy _ Destination:=Workbooks("LISTE.xls").Sheets(1).Range("b65536").End(xlUp)(2)

---

PS SUPPOSE LES 2 CLASSEURS OUVERTS.

super
ça fonctionne impec
merci