If Me.ListBox1.Value = "GULLIVER" Then
L1 = Sheets("Feuil1").Range("B65536").End(xlUp).Row
For i = 2 To L1
If Cells(i, 2).Value = Me.ListBox1.Value Then
Rows(i & ":" & i).Select
Selection.Copy
Sheets("Feuil2").Select
Rows(i & ":" & i).Select
ActiveSheet.Paste
Sheets("Feuil1").Select
End If
Next i
Else
Exit Sub
End If
Sheets("Feuil2").Select
UserForm1.Show
End Sub