Private Sub Workbook_Open()
Application.OnKey "c", "Copier"
Application.OnKey "v", "Coller"
End Sub
Sub Copier()
ActiveCell.Activate
Selection.Copy
End Sub
Sub Coller()
If Application.CutCopyMode Then ActiveCell.PasteSpecial xlPasteValues
End Sub
Private Sub Workbook_Open()
Application.OnKey "^v", "Coller"
End Sub
Classiques et sans risque de confusion puisque Ctrl+V donne toujours le résultat demandé au post #1.Ce sont les raccourcis classiques... donc risque de confusion.
C'est sûr, il faut comprendre la chose une fois pour toutes... Et s'en souvenir.c'est tout sauf didactique.
J'en connais une de plus simpleEn terme de manipulations il n'y a rien de plus simple.
A+