Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("Tableau1").Columns(1)) Is Nothing Or Target.Count > 1 Then
Me.ChartObjects("Graphique 1").Visible = False
Exit Sub
Else
Range("$J$5").Value = Target.Value
Me.ChartObjects("Graphique 1").Visible = True
End If
End Sub