Est-ce que ce code est correct ? Parce que ca prend un temps assez long jusque la macro termine.
Sachant qu'en fait je souhaite que la macro me supprime les lignes a l exception de celles ayant un font bleu et jaune (8 et 6 dans l index des couleurs).
Merci de vos conseils
Dim cell As Range
For Each cell In Range("I2:I65536")
If cell.interior.colorindex <> 8 then
If cell.interior.colorindex <> 6 then
cell.entirerow.delete
End If
End If
Next cell
Juste une question as-tu vraiment des données jusqu'à la 65536 ième ligne ?
C'est cela qui fait trainer ta macro.
Je pense qu'il faudrait t'y prendre autrement en définissant la plage dans laquelle se trouve tes données et appliquer cela dans ta macro.
En allant également dans le menu "Chercher" et encoder "supprimer lignes", tu devrais trouver quelques posts qui ont traité de ce sujet.