Bonsoir Floune,
essaye un truc du genre :
Sub chercheetcopie()
ActiveSheet.Unprotect Password:="MonmotdePasse1"
Sheets("Feuil1").Range("Exercice Courant").Copy
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="MonmotdePasse1"
Sheets("Feuil2").Select
ActiveSheet.Unprotect Password:="MonmotdePasse2"
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="MonmotdePasse2"
End Sub