Salut"rem$"
Un petit exemple qui peut être te perméttra d'avancer.
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim cel As Range
Dim msg As String
If Intersect(target, Range("A1:A20")) Is Nothing Then Exit Sub
For Each cel In selection
If cel <> "" Then
msg = msg & Chr(13) & cel.Value
End If
Next
MsgBox msg
End Sub
A+++
Jean Marie