Sub Filtrer()
[Z2] = "=CommencePar(R2,""ESCALADE"",""FAUX MANQUANT"",""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
End Sub
Function CommencePar(x$, crit1$, Optional crit2$ = "µ", Optional crit3$ = "µ") As Boolean
CommencePar = x Like crit1 & "*" Or x Like crit2 & "*" Or x Like crit3 & "*"
End Function