Supprimer lignes selon 3 conditions

Bonjour forum,

J'ai un fichier ou je voudrai supprimer toutes les lignes de la colonne 1 si elles ne contiennent pas le mot "mot1" toutes les lignes de la colonne 2 avec le mot "mot2"

et idem sur la colonne 6 avec "mot3"

J'ai une macro qui supprime bien les deux première conditions mais il zappe la 3ème !!

Sub Nettoie()
Dim i As Integer
Application.ScreenUpdating = False
For i = 20000 To 4 Step -1
    If Not (Cells(i, 1).Value Like "*mot1*" Or Cells(i, 2).Value Like "*mot2*" Or Cells(i, 6).Value Like "mot3") Then
        Rows(i).Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

Merci d'avance de votre aide

Bonjour,

Si tu arrives à résoudre ceci, tu devrais être capable de résoudre ton souci pour le mot3 :

Quelle truffe !

Cela fonctionne mieux effectivement

Sub Nettoie()
Dim i As Integer
Application.ScreenUpdating = False
For i = 20000 To 4 Step -1
    If Not (Cells(i, 1).Value Like "*mot1*" Or Cells(i, 2).Value Like "*mot2*" Or Cells(i, 6).Value Like "*mot3*") Then
        Rows(i).Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

Merci encore

Tchoupi, y'a que ça de vrai !

Merci encore de m'avoir ouvert les yeux