Sub Macro1()
Range("B2").FormulaR1C1 = "=RC[-1]<>""Not found"""
Range("C1") = "ENTETE"
Range("C2") = "Not found"
Range("A1:A11").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"B1:B2"), CopyToRange:=Range("D1"), Unique:=False
Range("A1:A11").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C1:C2"), CopyToRange:=Range("E1"), Unique:=False
Columns("B:C").Delete Shift:=xlToLeft
End Sub