Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "la cellule de la liste" Then
Select Case Target.Text
Case Is = "option1"
call 'la commande voulu'
Case Is = "option 2"
call 'la commande voulu'
etc
End Select