autre solution pour copier à l'intérieur de la zone
activer Microsoft Forms 2.0 Object Library
Dim oldplage As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim obj As New DataObject, okcopie As Boolean
okcopie = False
With obj
.GetFromClipboard
If .GetFormat(1) Then okcopie = True
End With
Calculate
If Not oldplage Is Nothing And okcopie Then oldplage.Copy
Set oldplage = Selection
End Sub
il faudra faire escape après collage
edit : bonjour gmb - ta solution est en effet meilleure en évitant calculate