Exporter des données vers plusieurs feuilles de calcul

Bonsoir à tous,

Alors, voici ma nouvelle problématique vba.

Je souhaiterais pouvoir exporter vers plusieurs autres feuilles de mon classeur un certain nombre de données présentes dans un tableau. Je m'explique :

Sur ma feuille "Machin", j'ai un tableau qui commence en B15 et qui se termine à la colonne AB et à une ligne indéfinie.

Je souhaiterais qu'en cliquant sur mon bouton de commande,

- Les valeurs de B15 à X ligne indéfinie soient copiées :

* Dans ma feuille "Truc" de la cellule A6 à la cellule W (ligne indéfinie)

* Dans ma feuille "Chose" de la cellule A5 à la cellule W (ligne indéfinie)

* Dans ma feuille "Bidule" de la cellule A6 à la cellule W (ligne indéfinie)

- Les valeurs de Y15 à Y ligne indéfinie soient copiées

* Dans ma feuille "Bidule" de la cellule AO6 à AO (ligne indéfinie)

- Les valeurs de Z15 à AB ligne indéfinie soient copiées

* Dans ma feuille "Bidule" de la cellule AR6 à AT (ligne indéfinie)

Non, non, je ne suis pas du tout exigeante!!

Bref, je ne sais pas comment m'y prendre.

Si vous avez des idées, je suis toute ouïe!!!

Un gigantesque merci à tous les spécialistes pour leur aide.

Excellente soirée.

A bientôt

Einstein

Bonsoir einstein,

Il aurait été judicieux de joindre un fichier afin de pouvoir adapter une solution.

Sinon, essaie ce code (pas testé)

Sub exporter()
Dim plage1 as range
Dim nbLign as Long

Set plage1 = Activesheet.range("B15:X" & range("B" & rows.count).end(xlup).row)
nbLign = plage1.rows.count
      With plage1
            .copy sheets("Truc").range("A6:W6").resize(nbLign)
            .copy sheets("Chose").range("A5:W5").resize(nbLign)
            .copy sheets("Bidule").range("A6:W6").resize(nbLign)
      end with
Activesheet.range("Y15:Y" & range("B" & rows.count).end(xlup).row).copy sheets("Bidule").range("AO6").resize(nbLign)
Activesheet.range("Z15:AB" & range("B" & rows.count).end(xlup).row).copy sheets("Bidule").range("AR6:AT6").resize(nbLign)
End Sub

Bonjour vba-new,

Oui tu as raison, j'aurais du mettre un fichier! Désolée...

Quoi qu'il en soit, j'ai testé ta macro et elle fonctionne parfaitement bien!!

Merci beaucoup pour ton aide et pour ta rapidité

Einstein