Copier Coller interdit par macro

Private Sub Workbook_Open() 
'Interdit le tirage des formules dans les 4 directions et le glisser déplacer 
Application.CellDragAndDrop = False 
End Sub 
  
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
'Interdit le collage sur la même feuille que celle qui a servi à faire la copie 
Application.CutCopyMode = False 
End Sub 
  
Private Sub Workbook_Activate() 
'Interdit le collage suite à une copie venant d'un autre classeur 
Application.CutCopyMode = False 
End Sub 
  
Private Sub Workbook_SheetActivate () 
'Interdit le collage suite à une copie venant d'une autre feuille du même classeur 
Application.CutCopyMode = False 
End Sub 
 
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
'Active le tirage des formules dans les 4 directions et 
'la technique du glisser-déplacer pour les cellules. 
Application.CellDragAndDrop = True 
  
'Active la possibilité de collage 
Application.CutCopyMode = True 
End Sub