XL 2016 macro pour filtrer

[user1969]

Bonjour,
Je suis débutante en vba et j'aurais besoin de votre aide. Je souhaite filtrer une liste de groupe de mots et afficher les cellules qui ne contiennent pas : toto,titi,tata. Le problème est que ma macro ne fait le filtre que sur le dernier mot "tata"
La voila:

Sub Filtre()
With Worksheets("Feuil1")
If .FilterMode = True Then .ShowAllData
Range("A1").AutoFilter 1, Field:=1, Criteria1:=Array("<>*toto*", "<>*titi*", "<>*tata*")
End With
End Sub

Merci d'avance

 

[MP59]

Bonsoir,
fonctionne avec t?T? où ? = n'importe quel caractère unique. Probablement que la réalité de ton fichier sera plus complexe.

Sub Filtre()
    With Worksheets("Feuil1")
        If .FilterMode = True Then .ShowAllData
        Range("A1").AutoFilter 1, Field:=1, Criteria1:=Array("<>*t?t?*")
    End With
End Sub

l'exclusion semble être limitée à 2 conditions (1 condition avec * ou ? peut faire plusieurs mots)