Bonjour Marc,
Dans ton VB, ta ligne (Ici en rouge), remplace la valeur par l'index.
For i = 2 To [A65000].End(xlUp).Row
If Cells(i, 1) Like "*" And Cells(i, 168) Like ComboBox1 And Cells(i, 3) Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = Cells(i, 1)
Me.ListBox1.List(k, 1) = Cells(i, 2)
Me.ListBox1.List(k, 2) = Cells(i, 3)
Me.ListBox1.List(k, 3) = Cells(i, 4)
' Me.ListBox1.List(k, 4) = Cells(I, 5)
Me.ListBox1.List(k, 1) = i
k = k + 1
End If
Next i