Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)On Error Resume Next
If Intersect(Target, Rows("5:14")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
Selection.Interior.ColorIndex = Cells(Target.Row, 1).Interior.ColorIndex
copier 'macro
If Intersect(Target, Rows("17:32")) Is Nothing Then Exit Sub
Coller 'macro
copier 'macro
Application.ScreenUpdating = True
End Sub