Private Sub ListView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
Dim i&
If Button = 2 Then 'clic droit
With ListView1
If .SelectedItem Is Nothing Then Exit Sub
For i = .SelectedItem.Index + 1 To .ListItems.Count
If Left(.ListItems(i).ListSubItems(4), 14) = "[DOC SUPPRIMÉ]" Then _
.ListItems(i).Selected = True: Exit Sub
Next
End With
End If
End Sub