Macros pour activer / désactiver Copier-Coller

Bonjour, j'ai besoin de votre aide s'il vous plait.

j'ai ces deux bouts de codes dans ThisWorkbook

Sub Desable_Copy()
 
Dim oCtrl As Office.CommandBarControl
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = False
     Next oCtrl
 
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = False
     Next oCtrl
 
     Application.CellDragAndDrop = False
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Application
        .CellDragAndDrop = False
        .CutCopyMode = False 'Clear clipboard
    End With
End Sub

.

Tout de suite après

Sub Enable_Copy()
 
Dim oCtrl As Office.CommandBarControl
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = True
     Next oCtrl
 
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = True
     Next oCtrl
 
     Application.CellDragAndDrop = True
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Application
        .CellDragAndDrop = True
        .CutCopyMode = True 'Clear clipboard
    End With
End Sub

le premier c'est une macro pour désactiver le Copier coller, le deuxième c'est pour l'activer.
Quand j’exécute le code j'ai ce message erreur :"Nom ambigu détecté".

Merci pour votre aide très précieuse car là je suis bloqué !!