Bonjour, j'essaie de trouver un code ki me permet de supprimer la ligne qui contiendrait le mot "facture".  
j'ai fait ça , mais ça marche pas:  
| Code : 
 Sub f()For i = 1 To 200If Cells(i, 2) = "facture" ThenRows("i:i" ).Select    Selection.Delete Shift:=xlUp
 | 
merci
 
 
End If
Next
End Sub
[/code]
merci