creer une colonne supplémentaire contigüe dans laquelle un numero 1 ou une lettre X correspondrait au code couleur des cellules d'épuisement et trier sur cette nouvelle colonne ou placer une fonction dans cette colonne supplémentaire:
dans un module copier
Function Couleur(Cellule As Range)
Couleur = Cellule.Interior.ColorIndex
End Function
exemple cellule coloriée en C3
et en D3: fonction - personnaliser - choisir =Couleur
Couleur(C3) et trier selon le code obtenu
une fois trié le code couleur, éliminer les lignes.