Sub FiltreTrie()
With Sheets('Données Procost')
.UsedRange.AutoFilter Field:=1, Criteria1:='=*PATTE*'
If .FilterMode = True Then
.UsedRange.Offset(1, 0).EntireRow.Copy Destination:=Sheets('plat').Range('A' & Sheets('plat').Range('A65536').End(xlUp).Row + 1)
.UsedRange.Offset(1, 0).EntireRow.Delete
.UsedRange.AutoFilter
End If
End With
End Sub