XL 2013 Message d'erreur lors d'une exécution d'1 Macro/VBA

Sub Request_Locking()
'
' > STD Requests WebADI 28/02/2019
' Lock the Request Name

    Sheets("1-Param-Work-Instruction").Select
    ActiveSheet.Unprotect ("CG")
    Range("F4:F9").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.Enabled = False
    
    Range("OriginalTransfRef").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.Enabled = False
    
    
End Sub