Private Sub CommandButton1_Click()
[COLOR="Red"]Feuil2.Range("A2:E100").ClearContents[/COLOR]
With Feuil1
lg = 2
For Each cel In .Range("B2:B" & .Range("B65536").End(xlUp).Row)
If cel.Value = .ComboBox1.Value Then
For c = 1 To 5
Feuil2.Cells(lg, c) = .Cells(cel.Row, c)
Next
lg = lg + 1
End If
Next
End With
End Sub