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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?