Sub Copier()
'Feuil1 et Feuil2 sont les CodeNames des feuilles A et B
With Feuil1 'CodeName
.[E2] = "=AND(C2=""C"",D2=""OK"")"
Feuil2.[A:D].Clear 'RAZ
.[A:D].AdvancedFilter xlFilterCopy, .[E1:E2], Feuil2.[A:D]
.[E2] = ""
Feuil2.Activate 'facultatif
End With
End Sub