Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox2.ColumnCount = 2
Dim RgListSource As Range
Dim i As Integer
Dim VarItem As Variant
Fin_Liste = Range('a15000').End(xlUp).Row
For i = 1 To Fin_Liste
Cells(i, 1).Select
VarItem = ActiveCell.Value
If ActiveCell.Offset(0, 2).Value = 'x' Then
ListBox1.AddItem VarItem
ListBox1.List([b]i[/b], 2) = ActiveCell.Offset(0, 1).Value
Else
ListBox2.AddItem VarItem
ListBox2.List([b]i[/b], 2) = ActiveCell.Offset(0, 1).Value
End If
Next i
TextBox1.Value = ListBox2.ListCount & ' Sections non applicables'
TextBox2.Value = ListBox1.ListCount & ' Sections applicables'
End Sub