Option Explicit
Sub Ligne_dupliquer()
With Sheets("Sheet1")
.Range("y1").AutoFilter
.Range("y1").AutoFilter Field:=25, Criteria1:="Félicitation"
.Range(Range("y2"), Range("y2").End(xlToRight).End(xlDown)).Offset(, -24).Resize(, 26).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Sheet2").Range("a9")
.Range("y1").AutoFilter
End With
End Sub