Private Sub UserForm_Initialize()
Dim f As Worksheet, a As Range, j&, i&, c()
Set f = Sheets("AMIANTE listes A et B")
a = f.Range("A24:F174")
Me.Liste_ecarts.ColumnCount = 2
Me.Liste_ecarts.ColumnWidths = "710;20"
For i = LBound(a) To UBound(a)
If a(i, 6) = "OUI" And a(i, 1) <> "" And a(i, 2) <> "" Then j = j + 1
Next i
ReDim Preserve c(1 To j, 1 To 2)
j = 0
For i = LBound(a) To UBound(a)
If a(i, 6) = "OUI" And a(i, 1) <> "" And a(i, 2) <> "" Then
j = j + 1
c(j, 1) = a(i, 2)
c(j, 2) = a(i, 1)
End If
Next i
Call Tri(c(), 1, LBound(c, 1), UBound(c, 1))
Me.Liste_ecarts.List = c
End Sub