Private Sub CommandButton2_Click()
Dim Cde As String
Cde = InputBox('Saisir N° Cde', 'N° CDE', '')
Dim i As Integer
With ListBox1
For i = .ListCount - 1 To 0 Step -1
If .List(i, 1) Like Cde Then
.Selected(i) = True
Else
.RemoveItem (i)
End If
Next i
End With
End Sub