Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, sel As Range
On Error Resume Next 'sécurité
Application.EnableEvents = False 'désactive l'action des évènements
tablo = Target 'mémorise les valeurs
Set sel = Selection
Application.Undo 'annule le collage
Target = tablo 'rétablit uniquement les valeurs
sel.Select
Application.EnableEvents = True
End Sub