Bonjour
Si la
stargate a écrit :
... dans une cellule sélectionnée auparavant
Si la cellule est simplement sélectionnée, je ne sais pas faire.
Mais si tu as validé cette cellule (c.à.d. cliqué dans la barre de formule quand elle est sélectionnée, même sans rien y changer, puis tapé sur la touche entrée), alors, cela devient possible.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
v = Target
Application.Undo
ActiveCell.Value = v
End Sub