Copier des données d'une feuille et les coller dans une autre

[k4RADOC]

Bonjour,

Comme indiqué dans le titre, je souhaiterais copier des données d'une feuille et les coller dans une autre.
En gros je souhaiterais créer un bouton me copiant les données entre A13:BE1000 lorsque je clique dessus.
Mes contraintes sont les suivantes : j'ai en L8 une liste déroulante appliquant divers filtres me masquant à la fois des lignes et des colonnes. Je souhaiterais donc que lorsque je décide d'appuyer sur mon bouton "copier les données" il prenne en compte ma liste déroulante.
Pour ce faire j'ai déjà pensé à un code qui ne marche pas mais qui résume l'idée globale :



Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$L$8" Then

Case Is = "Option1"

Sheets("Feuil1" ).Select
Range("A13:BE1000").Select
selection.copy
Sheets("Feuil2").Select
Range("B5").Select
ActiveSheet.Paste Link:=True

Case Is = "Option2"

Sheets("Feuil1" ).Select
Range("A13:BE1000").Select
selection.copy
Sheets("Feuil2").Select
Range("B'la première ligne vide après B5'").Select
ActiveSheet.Paste Link:=True

Case Is = "Option3"

Sheets("Feuil1" ).Select
Range("A13:BE1000").Select
selection.copy
Sheets("Feuil2").Select
Range("B'la première ligne vide après B5'").Select
ActiveSheet.Paste Link:=True

Case Is = "Option4"

Sheets("Feuil1" ).Select
Range("A13:BE1000").Select
selection.copy
Sheets("Feuil2").Select
Range("B'la première ligne vide après B5'").Select
ActiveSheet.Paste Link:=True

Case Is = "Option5"

Sheets("Feuil1" ).Select
Range("A13:BE1000").Select
selection.copy
Sheets("Feuil2").Select
Range("B'la première ligne vide après B5'").Select
ActiveSheet.Paste Link:=True

Case Is = "Option6"

Sheets("Feuil1" ).Select
Range("A13:BE1000").Select
selection.copy
Sheets("Feuil2").Select
Range("B'la première ligne vide après B5'").Select
ActiveSheet.Paste Link:=True

Case Is = "Option7"

Sheets("Feuil1" ).Select
Range("A13:BE1000").Select
selection.copy
Sheets("Feuil2").Select
Range("B'la première ligne vide après B5'").Select
ActiveSheet.Paste Link:=True

End Select

Range("A1").Select
End If
Application.ScreenUpdating = True

End Sub




Je ne sais pas trop si c'est assez clair, en tout cas j'espère que quelqu'un trouvera une solution.


Bonne journée à tous.