Bonjour,
J'ai une base de donnée avec beaucoup de lignes bizarres. Mais j'ai remarqué que ces lignes ont dans le colonne A le mot "Fourn.".
Donc j'aimerais trouver dans mes milliers de lignes, les lignes bizarres et les supprimer. Auriez-vous une commande simple ? J'ai cru voir la commande Find, mais je ne sais pas comment l'utiliser, et est-ce qu'il faut la faire boucler ?

Parce que sinon, j'aurais pensé à un code du genre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub supprimer_ligne_vide
derniere_cellule = range("A1048576").end(xlUp).Row
Do
'S'il y a des lignes avec du "Trash" au travers, les supprime
    If Range("A" & compteur) = "Fourn." Then
        Range("A" & compteur).EntireRow.Delete
        compteur = compteur - 1
    End If
compteur = compteur +1
Loop until compteur = nb_ligne
End sub
Merci de m'éclairier,

Hehee