Sub Macro1()
'Efface le contenu des colonnes B à D de l'onglet "Critère"
Sheets("Critère").Columns("B:D").ClearContents
'Travaille sur l'onglet Feuil2
With Sheets("Feuil2")
'Filtre la plage de A à C de la ligne 1 la dernière cellule remplie de la colonne A
'selon le critère écrit en cellul A1 A2 de l'onglet "critère"
'et copie le résultat en B1 de l'onglet critère
.Range("A1:C" & .Cells(Rows.Count, 1).End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Critère").Range("A1:A2"), CopyToRange:=Sheets("Critère").Range("B1:D1"), Unique:=False
End With
End Sub