Copier collet plusieurs onglets

Fermé
portable77 Messages postés 1 Date d'inscription mardi 13 octobre 2009 Statut Membre Dernière intervention 13 octobre 2009 - 13 oct. 2009 à 17:14
Bonjour,

Je débute en macro. Je n'ai jamais fait de macro de ma vie. J'ai cherché un peu partout sur le net et malheureusement je n'ai pas trouvé ce que je voulais ou pas bien compris.

Je souhaite copier et coller X onglets dans un classeur récapitulatif.
Par exemple, je souhaite copier la colonne A et B dans l'onglet 1 à partir de la ligne 25 (par exemple) et de même pour l'onglet 2, 3, 4 et 5.
Sauf que mais onglets peuvent changer de nom et que si je supprime une ligne dans un onglet le fichier récapitulatif doit être mis à jour.

voici ce que j'ai fait :
Sub Copiercolletmacrotest()
'
' Copiercolletmacrotest Macro
'

'
Sheets("1er onglet").Select
Range("A2:B7").Select
Selection.Copy
Sheets("Feuil3").Select
ActiveSheet.Paste
Sheets("2eme onglet").Select
Range("A2:B4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Range("A8").Select
ActiveSheet.Paste
Sheets("2eme onglet").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Feuil3").Select
Rows("9:9").Select
Selection.Delete Shift:=xlUp
Range("B15").Select
End Sub


Par avance merci pour votre aide.
A voir également: