Sub test()
x = Split("TEST,*DEM,*ETT,*REM,*REF,*SCO,*SOC,*TRT,VOIR ", ",") 'ajouter ou supprimer au besoins un item
MsgBox formule(x, "E2")
' tu filtre ici
End Sub
Function formule(x, cel) As String
'les items pour XLPART doivent etre précédés d'un((*))
formule = "=SIGN(COUNT("
For i = 0 To UBound(x)
If InStr(x(i), "*") > 0 Then x(i) = Replace(x(i), "*", "SEARCH(""""") & """""," & cel & ")" Else x(i) = "LN(" & cel & ",""""" & x(i) & """"")"
Next
formule = formule & Join(x, ",")
Debug.Print formule
End Function