Private Sub Workbook_Open()
Application.OnKey "c", "ThisWorkbook.Copie"
Application.OnKey "v", "ThisWorkbook.Colle"
End Sub
Sub Copie()
Dim cel As Range
On Error Resume Next 'si la sélection ne concerne pas des cellules
With Me.Sheets("Feuil3") 'nom à adapter
For Each cel In Intersect(Selection, ActiveWorkbook.ActiveSheet.UsedRange)
.Range(cel.Address) = cel + .Range(cel.Address)
Next
End With
End Sub
Sub Colle()
With Me.Sheets("Feuil3")
ActiveCell = Application.Sum(.UsedRange)
.Cells.ClearContents
End With
End Sub