Bonjour,
J'ai une longue liste de donnée pouvant aller jusqu'à 1000 lignes et je voudrais dire à Excel de supprimer une ligne qui vient juste après une cellule contenant un mot.
J'ai essayé des codes que j'ai cherché sur le Forum mais je ne trouve pas.
Je joins un fichier à titre d'exemple.
Voici le code que j'ai écrit:
Sub Supprimerligne()
Dim I As Integer
For I = [A65000].End(xlUp).Row To 1 Step -1
If Not Cells(I, 1).Find("Enchère") Is Nothing Then range(I).offset(1,0).delete
Next I
End sub
Merci!