La macro...
Sub Macro1()
With Feuil2
.[A4].CurrentRegion.ClearContents
If IsEmpty(.[A2]) And IsEmpty(.[B2]) And IsEmpty(.[C2]) Then
Exit Sub
Else
Feuil1.[a1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("A1:C2"), CopyToRange:=.Range("A4"), Unique:=False
End If
End With
End Sub