Private Sub UserForm_Initialize()
Dim Dico As Object
Dim Courant As Range
Dim Element_Dico As Object
Dim Fin1 As Long, Fin2 As Long, Fin3 As Long, Fin4 As Long
Set Dico = CreateObject("Scripting.Dictionary")
ComboBox1.Clear
ComboBox2.Clear
'Les Personnes
With Sheets("Listes")
Fin1 = .Range("S" & .Rows.Count).End(xlUp).Row
For Each Courant In .Range("S2:S" & Fin1)
If Not Dico.exists(Courant.Value) Then
Dico.Add Courant.Value, Courant.Value
ComboBox2.AddItem Courant.Value
End If
Next Courant
'Les Véhicules
Fin1 = .Range("C" & .Rows.Count).End(xlUp).Row
Fin2 = .Range("F" & .Rows.Count).End(xlUp).Row
Fin3 = .Range("I" & .Rows.Count).End(xlUp).Row
Fin4 = .Range("L" & .Rows.Count).End(xlUp).Row
For Each Courant In .Range("C2:C" & Fin1 & ",F2:F" & Fin2 & ",I2:I" & Fin3 & ",L2:L" & Fin4)
If Not Dico.exists(Courant.Value) Then
Dico.Add Courant.Value, Courant.Value
ComboBox1.AddItem Courant.Value
End If
Next Courant
End With
End Sub