Copier/coller le texte d'une cellule avec raccourci

Option Explicit
Dim valeur As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:H50")) Is Nothing Then 'a adapter la plage de cellule
    Range(Target.Address).AddComment
    Range(Target.Address).Comment.Text Text:=valeur
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 valeur = Target.Value
  End Sub

Option Explicit
Dim valeur As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:H50")) Is Nothing Then 'a adapter la plage de cellule
    With Range(Target.Address)
 If .Comment Is Nothing Then
  .AddComment ' Création commentaire
  .Comment.Text Text:=valeur
  Else
  .Comment.Text Text:=valeur
   End If
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 valeur = Target.Value
  End Sub