Sub TEST()
Dim i&, c
With Sheets("MOULE")
'si filtrage, on affiche toutes les lignes sinon le End(xlUp) risque d'être faux
If .FilterMode Then .ShowAllData
'dernière cellule non vide sur la colonne C
derlig = .Cells(Rows.Count, "c").End(xlUp).Row
'supprime la ligne si valeur colonne G contient 7010Z OU 6820B
'en partant du bas
For i = derlig To 4 Step -1
c = Cells(i, "g")
If c Like "7010Z" Or c Like "6820B" Then .Rows(i).Delete
Next i
End With
End Sub