Copier Coller vers feuille active

Bonjour,

Je voudrais faire une macro qui copie le contenu de la feuille PRESENCE vers la feuille active (d'où on exécute la macro).

Pouvez vous me dire ce que je doit changer de la code ci-dessous pour que cela soit possible ?

Merci

Sub Macro2()

'

' Macro2 Macro

'

'

Sheets("PRESENCE").Select

Cells.Select

Selection.Copy

Sheets("Résolution 2").Select

Range("A1").Select

ActiveSheet.Paste

End Sub

Bonjour

A tester

Sub Macro2()
  Sheets("PRESENCE").Cells.Copy Sheets("Résolution 2").Range("A1")
End Sub

Ou plus simplement si la macro est appelée à partir de la page "Résolution 2"

Sub Macro2()
  Sheets("PRESENCE").Cells.Copy Range("A1")
End Sub

Merci! c'est parfait