Private Sub ListView1_DblClick()
With ListView1
For i = 1 To .ListItems.Count
If .ListItems(i).Selected = True Then
nomfeuille = Mid(.ListItems(i).Key, 1, InStr(1, .ListItems(i).Key, "££") - 1)
ligne1 = Mid(.ListItems(i).Key, InStr(1, .ListItems(i).Key, "££") + 2, 50)
nuitem = i
Exit For
End If
Next
End With
Sheets(nomfeuille).Activate
Rows(ligne1).Select
Unload Me
End Sub