Liste deroulante et macro pour selectionner u

Bonjour
Je voudrais par l'intermediaire d'une liste deroulante faire le choix d'un type de graphique et utiliser la macro ci apres qui a le choix entre 2 graphiques:

Private Sub CommandButton5_Click()
ActiveSheet.ChartObjects("Graphique 1").Activate
If ActiveChart.ChartType = xlArea Then
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartType = xlColumnClustered
Else
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartType = xlArea
End If
End Sub

Pouvez vous m'indiquer la procedure :
1)confection d'une liste deroulante sur une feuille pour choisir le type de graphique
2) et ensuite modifier cette macro pour qu'elle permette de fonctionner avec cette liste
merci beaucoup
michel