Private Sub Worksheet_SelectionChange(ByVal T As Range)
If Not Intersect(T, Columns(60)) Is Nothing Then
If T.Count > 1 Then Exit Sub
If Len(T) Then
MsgBox T(, 22), vbInformation, "Valeur de la cellule: " & T(, 22).Address(0, 0)
End If
End If
End Sub