Sub test()
Dim cel As Range
For Each cel In Target
'Adapter la/les plages.
If Not Intersect(cel, Range("L1:L2000")) Is Nothing Then
Select Case cel.Value
Range(ActiveCell, ActiveCell.Offset(0, -7)).Activate
Selection.Cut
ActiveCell.Offset(0, -8).Select
Selection.Paste
End Select
End If
Next cel
End Sub