Bonjour à tous,

J'ai un problème de décalage lorsque je copie des données filtrées d'un onglet vers un autre onglet "Feuil1", mes données sont copiées vers la Cellule B32 de mon onglet A1 alors que je souhaiterais qu'elles soient copiées vers la cellule A1 et les suivantes.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
CritèreFiltre = InputBox("Rayon")
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=6, Criteria1:="=" & CritèreFiltre
Range("A1").CurrentRegion.Copy
ThisWorkbook.Sheets("Feuil1").Paste
Auriez-vous des idées ?

En vous remerciant d'avance,
jbulysse