Private Sub ComboBox1_Change()
Dim nbCar As Integer
Dim nbList As Integer
Dim rechlet As String
nbCar = Len(ComboBox1.Value) 'je calcule le nombre de caractères rentrés dans la ComboBox1
nbList = ComboBox1.ListCount 'nombre d'items dans la ComboBox1
rechlet = Left(ComboBox1.Text, nbCar) 'caractère à rechercher parmi les items de la ComboBox1
monnom = ComboBox1.List(6) 'exemple pour vérifier via les variables locales qu'il me définit bien ComboBox.List(i)
'Do While ComboBox1.Value <> ""
ComboBox1.Style = fmStyleDropDownList 'je souhaite que la liste déroulante apparaisse à partir du premier caractère entré dans la ComboBox
For i = nbList - 1 To 0 Step -1
If InStr(1, ComboBox1.List(i), rechlet, vbTextCompare) = 0 Then
ComboBox1.RemoveItem i
End If
Next i
'Loop
End Sub