Optimisation de macro

Bonjour j'ai crée la macro suivante,

Sheets("Index").Select
    Range("A1").Select
    Selection.Copy
    Sheets("GROUPE_S").Select
    Range("R1").Select
    ActiveSheet.Paste

J'ai essayé de supprimer le select et le remplacer par activesheet.paste mais cela ne marche pas, une idée ?

Cordialement,
Parrish

Bonjour,

Je pense qu'on peut carrément se passer de sélectionner les feuilles avec ça:

Sheets("Index").Range("A1").Copy
Sheets("GROUPE_S").Range("R1").PasteSpecial xlPasteAll

Ca marche, merci beaucoup, désolé du temps de réponse

Cordialement,
Parrish

Bonjour,

Pas de souci,

merci d'avoir pensé à répondre et à valider le sujet