Option Explicit
Dim c As Range
Dim i As Integer
Dim Mondico As Object
Dim Societe As Variant
Dim temp As String
Private Sub UserForm_Initialize()
Me.Nom.SetFocus
Set Mondico = CreateObject("Scripting.Dictionary")
For Each c In Worksheets("Revendeurs").Range("Rev_Societe")
Mondico(c.Value) = c.Value
Next
Me.Nom.List = Mondico.items
End Sub
Private Sub Nom_Change()
Set Mondico = CreateObject("Scripting.Dictionary")
Societe = [Rev_Societe]
For i = 1 To Worksheets("Revendeurs").Range("Rev_Ville").Count
If Societe(i, 1) = Me.Nom Then
temp = Range("Rev_Ville")(i)
Mondico(temp) = temp
End If
Next i
Me.Ville.List = Mondico.items
If Me.Ville.ListCount = 1 Then
Me.Ville.ListIndex = 0
Else: Me.Ville.ListIndex = -1
End If
End Sub