Sub copyByFilter()
'Efface le tableau des résultats
With Sheets("outcome")
Worksheets("outcome").Range("A1:P200").ClearContents
End With
'Filtre via une plage de cellule la feuille data et recopie les résultats dans la feuille outcome
With Sheets("data")
Intersect(.[A:P], .UsedRange).AutoFilter 2, Application.Transpose([td!A1:A45]), 7
Intersect(.[A:P], .UsedRange).Copy ([outcome!A1])
.[A:P].AutoFilter
End With
End Sub