Sub Zonecombinée3_QuandChangement()
Dim var1 As String
Dim var2 As String
' index
var1 = Feuil141.Shapes("Drop Down 3").ControlFormat.ListIndex
' valeur
var2 = Feuil141.Shapes("Drop Down 3").ControlFormat.List(var1)
If var2 = "IMPORT" Then
Range("A24").Value = ""
Range("U24").Value = "NIL"
ElseIf var2 = "EXPORT" Then
Range("A24").Value = "NIL"
Range("U24").Value = ""
Else
Range("A24").Value = ""
Range("U24").Value = ""
End If
End Sub