Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
With [C3]
If [B3] = "" Then
.Value = ""
Else
.Select
CreateObject("wscript.shell").SendKeys "%{DOWN}'facultatif, déroule la liste"
End If
End With
End Sub