Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
If Intersect(R, [A7:A10]) Is Nothing Then Exit Sub
Feuil2.Shapes(R).Visible = Not Feuil2.Shapes(R).Visible
R.Interior.ColorIndex = IIf(R.Interior.ColorIndex = 3, xlNone, 3) 'couleur de repère
R(1, 2).Select
End Sub