Sub Zonecombinée6_QuandChangement()
Select Case Range("K2").Value
Case 1
' Lance la Macro correspondant au choix 1 : Vendeur_1
Call Vendeur_1
Case 2
' Lance la Macro correspondant au choix 2 : Vendeur_2
Call Vendeur_2
Case 3
Call Vendeur_3
Case 4
Call Vendeur_4
Case Else
Exit Sub
End Select
End Sub