Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim var
Dim i&
var = Sheets("Feuil1").[a1].CurrentRegion
For i& = 2 To UBound(var, 1)
If CStr(var(i&, 1)) = ListBox1 Then
Rows(i&).Select
Exit For
End If
Next i&
End Sub