Extension de sélection

Bonjour,

J'ai effectué une macro afin d'automatiser des tâches qui se répétent à dates fixes. Pour une de ces tâches, je voudrais récupérer les données présentes dans ma dernière ligne, les copier et les coller à la ligne d'en dessous (sachant que les cellules contiennent des formules qui doivent donc "s'incrémenter").
Jusqu'ici pas de problème sauf que mes données vont par exemple de la colonne A à la colonne AL mais au milieu il y a une colonne vide. Afin d'atteindre les données de la dernière colonne j'utilise un Selection.End(...) par trois fois. J'ai fait cette manipulation à la main, et avec l'enregistreur de macros. Pourtant quand je lance mon programme, il ne sélectionne les données que jusqu'à la colonne vide... Quelqu'un aurait-il une idée ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Set Onglet2 = Worksheets("Récap") Onglet2.Select DerLigne2 = Range("B65536").End(xlUp).Row Onglet2.Cells(DerLigne2, 1).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Onglet2.Cells(DerLigne2 + 1, 1).Select ActiveSheet.Paste

---

PS : je me rappelle avoir lu que les Select pouvaient être évités dans la plupart des cas, est-ce possible ici ?

Merci d'avance

bonjour
essaye avec

Code:

---

1 2 3 4

Onglet2.Rows(DerLigne2 ).Select Selection.Copy Onglet2.Rows(DerLigne2 +1).Select ActiveSheet.Paste

---

A+

Merci pour cette réponse, ça résoudra au moins le problème temporairement (jaurais préféré avoir quelque chose de propre qui ne prenne pas toute la ligne au cas où d'autres données soient plus loins, mais bon c'est déjà mieux comme ça...)

Je ne vois vraiment pas où est le problème pour copier une plage même s'il y à des cellule vide.

Code:

---

1 2 3 4

Range("A3:K3").Select Selection.Copy Range("A4").Select ActiveSheet.Paste

---

copie toute la sélection même s'il y a 'des trous'.
A+

Le problème c'est que je connais pas la taille de ma plage, donc je ne connais pas les bornes à l'avance. D'où mon utilisation de Selection.End(xlToRight). Tout ce que je connais c'est la structure :
- x colonnes remplies
- 1 colonne vide
- y colonnes remplies.

En utilisant le Selection.End ça me permettait de retrouver à coup sûr toute ma sélection sans prendre de données éventuellement placées encore plus à droite. Après pas de problème, je copie le tout y compris les trous !