Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Long, i As Long
If Intersect(Target, [pla2]) Is Nothing Then Exit Sub
c = Target.Offset(0, -1).Interior.ColorIndex
For i = 1 To Range("Degradé").Count
If Range("Degradé").Cells(i, 1).Interior.ColorIndex = c Then
Target.Offset(0, -1).Interior.ColorIndex = Range("Degradé").Cells(i + 1, 1).Interior.ColorIndex
Target.Offset(0, -1).Font.ColorIndex = Range("Degradé").Cells(i + 1, 1).Font.ColorIndex
i = Range("Degradé").Count
Cancel = True
End If
Next i
End Sub