Sub ComboBox2_Change()
' Il faut transposer le tableau de ligne en colonne
If Me.ComboBox2.ListIndex = -1 And IsError(Application.Match(Me.ComboBox2, list_ville, 0)) Then
Me.ComboBox2.List = Filter(Application.Transpose(list_ville), Me.ComboBox2.Text, True, vbTextCompare)
Me.ComboBox2.DropDown
End If
End Sub