Private Sub UserForm_Initialize()
On Error Resume Next
tabStr = Split(Range("B1").Value, Chr(10))
For i = 0 To ListBox1.ListCount - 1 'boucle sur les éléments de la listbox
aCocher = False
For j = LBound(tabStr) To UBound(tabStr)
If ListBox1.List(i) = tabStr(j) Then aCocher = True
Next j
ListBox1.Selected(i) = aCocher 'déselectionne tous les éléments
Next i
End Sub