Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim y&, p As Range
Sheets("VISU").Activate
With ActiveSheet
Set p = .Range(Cells(5, "B"), Cells(Rows.Count, "B").End(xlUp))
y = Application.Match(CLng(ListBox1.Column(1)) * 1, p, 0)
'.Cells(y + 4, "B").Select ' sélection de la cellule B
'ou
.Rows(y + 4).Select ' sélection de la ligne complète
End With
Me.Hide
End Sub