Sub Décaler()
Dim lig&, col%
For lig = 4 To [K4].End(xlDown).Row
For col = 10 To 1 Step -1
If Cells(lig, col).Interior.ColorIndex <> xlNone Then
Cells(lig, 1).Resize(, col).Copy Cells(lig, 11 - col)
Cells(lig, 1).Resize(, 10 - col).Interior.ColorIndex = xlNone
Exit For
End If
Next
Next
End Sub