j'ai essayer ce code est ca fonctionne
Public Sub filtre()
[Z2] = "=AND(LEFT(R2,8)<>""ESCALADE"",LEFT(R2,13)<>""FAUX MANQUANT"",LEFT(R2,12)<>""SUIVI PROJET"",LEFT(U2,4)<>""reçu"",LEFT(U2,12)<>""FAUXMANQUANT"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
End Sub