'[A mettre dans chaque feuille]
Dim PrevCel As Range
Dim Etat As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CutCopyMode = xlCut Then Exit Sub
If PrevCel Is Nothing Then Exit Sub
If Target.Address <> PrevCel.Address Then
If Etat = True Then
Etat = False: Exit Sub
End If
Etat = True
Application.Undo
Application.CutCopyMode = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set PrevCel = Target
End Sub