Bonjour,

Débutant en vba je souhaite automatiser certaines taches sur Excel.

J'ai un fichier de 8000 lignes, ce que j'aimerai faire c'est supprimer toutes les lignes qui ne contiennent pas la valeur 12 dans la colonne AP.

J'ai essayé ce code. Mais il me supprime les en-tête de colonne et prend énormément de temps.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub Supprime()
    For Each cellule In Range("AP1:AP8000")
        If cellule.Value <> "12" Then Rows(cellule.Row).Delete
    Next
End Sub
Je suis sur qu'il y a un autre moyen pour supprimer les lignes.

Merci de votre aide.