Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C4")) Is Nothing Then
Select Case [C4]
Case "1"
Sheets("Feuil3").ChartObjects("Graphique 2").Visible = True
Sheets("Feuil3").ChartObjects("Graphique 3").Visible = False
Sheets("Feuil3").ChartObjects("Graphique 4").Visible = False
Case "2"
Sheets("Feuil3").ChartObjects("Graphique 2").Visible = True
Sheets("Feuil3").ChartObjects("Graphique 3").Visible = True
Sheets("Feuil3").ChartObjects("Graphique 4").Visible = False
Case "3"
Sheets("Feuil3").ChartObjects("Graphique 2").Visible = True
Sheets("Feuil3").ChartObjects("Graphique 3").Visible = True
Sheets("Feuil3").ChartObjects("Graphique 4").Visible = True
Case Else
Sheets("Feuil3").ChartObjects("Graphique 2").Visible = True
Sheets("Feuil3").ChartObjects("Graphique 3").Visible = True
Sheets("Feuil3").ChartObjects("Graphique 4").Visible = True
End Select
End If
End Sub