Private Sub UserForm_Initialize()
Dim I As Integer, Cellule As Range
For I = 0 To ListBox1.ListCount - 1
Set Cellule = Sheet1.Cells.Find(ListBox1.List(I))
If Not Cellule Is Nothing Then
If Sheet1.Cells(Cellule.Row, 6) <> "" Then ListBox1.Selected(I) = True
End If
Next I
End Sub