Private Sub ComboBox1_Change()
strSearch = ComboBox1
ComboBox1.Clear
'ComboBox1 = ""
For i = 2 To 6
If Mid(Feuil1.Cells(i, 1), 1, Len(strSearch)) = strSearch Then
ComboBox1.AddItem Feuil1.Cells(i, 1)
End If
Next i
ComboBox1.DropDown
ComboBox1 = strSearch
End Sub