Bonjour,
un exemple.


Sub Efface_ligne()
'
' Cette macro efface les lignes si dans la colonne F il y a (not ou NOT ou Not)
'

'
Dim i As Integer
Sheets("feuil1").Select



Range("F1").Select ' on commence ici
nblig = Range(Selection, Selection.End(xlDown)).Rows.Count

i = 1 ' première ligne

Do While i < nblig
If UCase(Cells(i, 6)) = "NOT" Then
' si le mot majuscule de la cellule = "NOT"
Cells(i, 6).Select ' selectionne la ligne : inutile c'est pour t'aider à suivre
Rows(i).Delete Shift:=xlUp ' efface la ligne entière


i = i - 1 ' on recule d'une ligne quand on efface
End If

i = i + 1 'ligne suivante

Loop

End Sub


A+