Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
With Me.ChartObjects("GR_LignesReserves")
.Visible = IIf(R.Address = "$E$4", True, False)
End With
With Me.ChartObjects("Gr_Comptes")
.Visible = IIf(R.Address = "$A$4", True, False)
End With
End Sub