Private Sub worksheet_change(ByVal target As Range)
Dim i As Long
Dim j As Long
Feuil2.Cells.ClearContents
j = 1
With Feuil1
For i = .[A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "" Then
.Rows(i).Copy Feuil2.Rows(j)
j = j + 1
End If
Next
End With
End Sub