Salut le forum
J'ai trouvé une alternative à mon problème.
En effet, j'ai crée le code ci-dessous via "Enregistrer une macro".
Après avoir exécuté la macro "recopie", j'enchaine avec la macro ci-dessous ce qui me permet d'atteindre le résultat souhaité.
Sub Protection_feuille()
'
' Protection Macro
Sheets("Proforma_Réel").Select
ActiveSheet.Unprotect "yes"
Cells.Select
Range("A15").Activate
Selection.Locked = True
Selection.FormulaHidden = True
Range("B1").Select
ActiveSheet.Protect "yes"
End Sub