XL 2013 Valeur selection cellules Msgbox

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox Target.Address
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim k, tx
Cancel = True
For k = 1 To Selection.Count: tx = tx & vbCr & Selection(k).Value: Next
MsgBox tx
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim c
Cancel = True
For Each c In Selection
If c.Value <> "" Then MsgBox c.Value
Next
End Sub