Option Explicit
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ComboBox1_Change
End Sub
Private Sub ComboBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ComboBox2_Change
End Sub
Private Sub ComboBox3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ComboBox3_Change
End Sub
Private Sub ComboBox4_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ComboBox4_Change
End Sub
Private Sub ComboBox5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ComboBox5_Change
End Sub
Private Sub ComboBox6_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ComboBox6_Change
End Sub
Private Sub ComboBox7_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ComboBox7_Change
End Sub
Private Sub ComboBox8_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ComboBox8_Change
End Sub
Private Sub ComboBox9_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then ComboBox9_Change
End Sub
Private Sub ComboBox1_Change()
Liste ComboBox1, [ListeCardio]
End Sub
Private Sub ComboBox2_Change()
Liste ComboBox2, [ListeUro]
End Sub
Private Sub ComboBox3_Change()
Liste ComboBox3, [ListeAbdo]
End Sub
Private Sub ComboBox4_Change()
Liste ComboBox4, [ListeMaxillo]
End Sub
Private Sub ComboBox5_Change()
Liste ComboBox5, [ListeOphtalmo]
End Sub
Private Sub ComboBox6_Change()
Liste ComboBox6, [ListeOrtho]
End Sub
Private Sub ComboBox7_Change()
Liste ComboBox7, [ListeORL]
End Sub
Private Sub ComboBox8_Change()
Liste ComboBox8, [ListeNeuro]
End Sub
Private Sub ComboBox9_Change()
Liste ComboBox9, [ListeSeno]
End Sub
Sub Liste(cb As ComboBox, R As Range)
Dim X$, tablo, i&, Y$, a$(), n&
X = "*" & LCase(cb) & "*" 'critère en minuscules avec caractère générique
tablo = R 'matrice, plus rapide
For i = 1 To UBound(tablo)
Y = tablo(i, 1)
If LCase(Y) Like X Then
ReDim Preserve a(n)
a(n) = Y
n = n + 1
End If
Next
If n = 0 Then ReDim a(0)
cb.List = a
cb.DropDown 'déroule la liste
End Sub