Sub Macro1()
Dim DerLig As Long
DerLig = Range("A1:BI11").Find("*", , , , xlByRows, xlPrevious).Row
Range("BDD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A1:BI" & DerLig), CopyToRange:=Sheets("Résultat").Range("A1:BI1"), Unique:=False
End Sub