Salut Subfestivus :
'Effacer la propriété RowSource de Chaque liste dans l'angle Properties-ListBox 1 et 2
Private Sub UserForm_Initialize()
'Cette ligne pour remplir la liste1
Me.ListBox1.List = Sheets("Liste").Range("A1").Resize(Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row, 1).Value
'Cette ligne pour remplir la liste2
Me.ListBox2.List = Sheets("Liste").Range("B1").Resize(Sheets("Liste").Range("B" & Rows.Count).End(xlUp).Row, 2).Value
'liste1
Art = Split(ActiveCell.Text)
For x = LBound(Art) To UBound(Art)
For i = 0 To ListBox1.ListCount - 1
If CStr(Art(x)) = CStr(ListBox1.List(i)) Then ListBox1.Selected(i) = True
Next: Next
'--------------------------------------------------------------------------
'liste2
Art2 = Split(ActiveCell.Text)
For x2 = LBound(Art) To UBound(Art2)
For i2 = 0 To ListBox2.ListCount - 1
If CStr(Art2(x2)) = CStr(ListBox2.List(i2)) Then ListBox2.Selected(i2) = True
Next: Next
End Sub