Private Sub UserForm_Activate()
Me.ComboBox1.RowSource = "Feuil1!A5:A" & Sheets("Feuil1").Cells(5, 1).End(xlDown).Row
End Sub
Private Sub UserForm_Initialize()
Dim i%
Me.ComboBox1.Clear
With Sheets("Feuil1")
For i = 5 To .Range("A65536").End(xlUp).Row
Me.ComboBox1.AddItem (.Cells(i, 1).Value)
Next i
End With
End Sub
Dim i%
With Sheets("Feuil1")
For i = 1 To .Range("A65536").End(xlUp).Row
If .Cells(i, 1).Value = Me.ComboBox1.Value Then
.Rows(i).Copy Destination:=Sheets("Feuil2").Range("A1")
End If
Next i
End With