Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As Shape
For Each s In Feuil2.Shapes
If s.TextFrame2.HasText Then If s.TextFrame2.TextRange.Characters.Text Like "R#*" Then s.Visible = False
Next
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s As Shape
If Target.Column = 2 And Target.Row > 2 Then
Cancel = True
For Each s In Feuil2.Shapes
If s.TextFrame2.HasText Then If s.TextFrame2.TextRange.Characters.Text = Target(1).Text _
Then s.Visible = True: s.Parent.Activate
Next
End If
End Sub