Bonjour,
je n'arrive pas a trouver le bon code pour supprimer une ligne entiere quand ma cellule contient le mot fictive. le pb est que ce mot est situé derriere un autre nom: ex : Berre Fictive , Cavaou Fictive etc.....
voila ce que j'ai comme code mais cela ne fonctionne pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Suprime()
Application.ScreenUpdating = False
Dim i As Long
For i = 2 To Range("B1000").End(xlUp).Row
If Cells(i, 2).Value Like "Fictive" Then Rows(i).Delete
Next i
End Sub
Merci d'avance pour votre aide