Sub Listebig_DropButtonClick()
Dim d As Object, tablo, i&, x$
Set d = CreateObject("Scripting.Dictionary")
tablo = RMCorrespondant.UsedRange.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
For i = 2 To UBound(tablo)
x = tablo(i, 1)
If x <> "" Then d(Application.Proper(x)) = ""
Next
If d.Count Then ListeBig.List = d.keys Else ListeBig.Clear
End Sub
Sub ListeDes_DropButtonClick()
ListeDes.Clear 'RAZ
If ListeBig.ListIndex = -1 Then Exit Sub
Dim d As Object, tablo, nom$, i&, x$
Set d = CreateObject("Scripting.Dictionary")
tablo = RMCorrespondant.UsedRange.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
nom = LCase(ListeBig)
For i = 2 To UBound(tablo)
x = tablo(i, 2)
If LCase(tablo(i, 1)) = nom And x <> "" Then d(Application.Proper(x)) = ""
Next
If d.Count Then ListeDes.List = d.keys
End Sub