Salut Julien
Voila une copie de code pour trier sur les cellules A1 à A12
Sub TriCouleurs()
Dim CompteurTri As Integer, CelluleTri As Integer, PositionCellule As Integer
Dim CouleurA As Integer, CouleurB As Integer, CouleurTri As Integer
Dim FlagMut As Boolean
Range("A1:A12").Select
For CelluleTri = 1 To 12
FlagMut = False
CouleurTri = Cells(CelluleTri, 1).Interior.ColorIndex
PositionCellule = CelluleTri + 1
Do
CouleurB = Cells(PositionCellule, 1).Interior.ColorIndex
If CouleurB = CouleurTri Then
FlagMut = True
Cells(PositionCellule, 1).Interior.ColorIndex = Cells(CelluleTri + 1, 1).Interior.ColorIndex
Cells(CelluleTri + 1, 1).Interior.ColorIndex = CouleurTri
End If
PositionCellule = PositionCellule + 1
Loop While Not FlagMut And PositionCellule <= 12
Next CelluleTri
End Sub
