Private Sub ComboPPA1_Change()
If ComboPPA1.ListIndex = 1 Then
Application.OnTime 1, Me.CodeName & ".Affiche" 'lancement différé
Else
ComboPPB1.Visible = False
End If
End Sub
Sub Affiche()
Dim liste
liste = Array("Extraits végétaux", "Extraits organiques", "Huiles", "Acides", "Surfactants", "Excipients secrets", "Divers", "Inclassés")
With ComboPPB1
.List = liste
.Visible = True
.ListIndex = 0
.Activate
.DropDown 'déroule la liste
End With
End Sub