Bonjour Bart
Si on imagine que ta ligne de couleur se trouve sur les cellules B4 à E4, après avoir fait ton tri si tu exécutes le code ci-dessous tu maintiens tes fonds en couleur.
Sub color()
Cells.Select
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
For Each CELL In Range("b4:e4")
CELL.Interior.ColorIndex = 3
Next
End Sub
Si tu peux prendre le temps de donner plus de précisions sur ton souci, je pense que l'on peut faire beaucoup mieux.
Salut
Rénato