Macro: Sélectionner feuille selon le nom dans une cellule

[sam94]

Bonjour à tous,
Voici mon fichier, j'aimerais avoir une macro qui copierait de A6 à A(jusqu'à cellule vide) et le collerait à la suite des autres dans l'onglet indiqué en "D2". Par exemple dans ce cas-ci, l'onglet Alpha est inscrit en "D2", donc la sélection A6:A18 irait se coller à la cellule A7 de l'onglet Alpha. Si c'est inscrit Beta, alors la sélection ira se coller à la cellule A21 de l'onglet Beta, etc.

Si vous avez des questions, n'hésitez pas!
Merci beaucoup!

 

[DoubleZero]

Bonjour, sam94, le Forum,

Comme ceci ?

Option Explicit
Sub Valeurs_transférer()
  Application.ScreenUpdating = False
  Range("a6:a" & Rows.Count).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants). _
  Copy Destination:=Sheets(Range("d2").Text).Range("a" & Rows.Count).End(xlUp)(2)
  Range("d2").Select
  Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[sam94]

C'est parfait, merci!