sub autre
Set plage2sort = [A1].CurrentRegion
nbcol = plage2sort.Columns.Count
For Each cl In plage2sort.Columns(1).Cells
If cl.Interior.ColorIndex = 15 Then cl.Offset(, nbcol).Value = 1
Next cl
plage2sort.Sort key1:=plage2sort.Columns(nbcol), header:=xlNo
plage2sort.Columns(nbcol + 1).ClearContents
end sub