Sub listeExistants()
Me.ListBox1.Clear
i = 0
col = Me.ComboBox1.ListIndex
a = f.Range("a2:a" & f.[A65000].End(xlUp).Row).Resize(, nbCol)
tmp = UCase(Me.ComboBox2)
For k = 1 To UBound(a)
If UCase(a(k, col + 1)) = tmp Then n = n + 1
Next k
Dim b(): ReDim b(1 To n, 1 To 6)
For k = 1 To UBound(a)
If UCase(a(k, col + 1)) = tmp Then
i = i + 1
b(i, 1) = a(k, col + 1)
b(i, 2) = a(k, 2)
b(i, 3) = a(k, 8)
b(i, 4) = a(k, 11)
b(i, 5) = a(k, 18)
b(i, 6) = a(k, 21)
End If
Next k
Me.ListBox1.List = b
End Sub