Sub Valeurs_colorées_copier()
Application.ScreenUpdating = False
For i = 6 To Range("b65536").End(xlUp).Row
If Range("B" & i).Interior.ColorIndex <> xlNone Then Range("b" & i).Offset(0, 1).Value = Range("b" & i).Value
Next
Application.ScreenUpdating = True
End Sub