Private Sub Worksheet_Change(ByVal Target As Range)
Dim cht As Chart
If Target.Address = "$B$2" And Target.Count = 1 Then
Set cht = ActiveSheet.ChartObjects(1).Chart 'ou l'index ou le nom du graphique
Select Case Target
Case "pommes", "poires"
cht.ChartType = xlLineMarkers
Case "figues"
cht.ChartType = xlColumnClustered
End Select
End If
End Sub