XL 2016 Macro sut toutes pages

[ChantalTreize]

Bonjour tout le monde,
J'ai créer cette macro:
Sub copie2()
'
' copie2 Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
Sheets("Feuil2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil5").Select
ActiveSheet.Paste
Range("A1").Select
End Sub

J'ai mis la copie page 5 mais je voudrais pouvoir la recopier sur une page active autre que la 5 si je suis par exemple en feuil 7 ou 10 autre
Suis je assez claire ?
Merci pour votre aide
Chantal

 

[Dranreb]

Bonjour.
Essayez :

Sub copie2()
Sheets("Feuil2").Cells.Copy Activesheet.[A1]
End Sub

Si le code est dans le même classeur que les données et si Feuil2 est aussi le nom de l'objet Worksheet qui représente la feuille "Feuil2" vous pouvez aussi l'écrire comme ça :

Sub copie2()
Feuil2.Cells.Copy Activesheet.[A1]
End Sub

 

[ChantalTreize]

Bonjour,
Désolée de n'avoir pu vous répondre plutôt
Mais un grand merci pour vos réponses
Chantal