Bonjour,
La fonction donnée par Bruno est la bonne mais faut la mettre ailleur...
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.ComboBox1.DropDown
End Sub
Il y a aussi moyen de l'ouvrir à partir d'un autre contrôle mais ça c'est plus compliquer.
A+