'affiche l'adresse et me contenu des cellules non vide sur la plage B5 à B50
Private Sub Worksheet_Activate()
Dim c As Range, msg As String
msg = ''
For Each c In Range('B5:B50')
If Not IsEmpty(c) Then
msg = msg & c.Address & ' : ' & c.Text & vbCrLf
End If
Next
If Not msg = '' Then MsgBox msg
End Sub