Action après sélection d'une cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("K14:K400")) Is Nothing Then Target.EntireRow.Copy Destination:=Range("A10")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("K14:K400")) Is Nothing _
Then Range(Target.Offset(0, -10).Address & ":" & Target.Address).Copy Destination:=Range("A10")
End Sub

[SIZE="2"]Private Sub Workbook_SelectionChange(ByVal Sh As Object, ByVal Target As Range)


If Not Application.Intersect(Target, Comparaison_de_prix!Range("h16:h400")) Is Nothing _
Then Comparaison_de_prix!Range(Target.Offset(0, -7).Address & ":" & Target.Address).Copy Destination:=Range("A12")

If Not Application.Intersect(Target, Comparaison_de_prix!Range("s16:s400")) Is Nothing _
Then Comparaison_de_prix!Range(Target.Offset(0, -7).Address & ":" & Target.Address).Copy Destination:=Range("L12")

End Sub
[/SIZE]

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

For Each Sh In ThisWorkbook.Sheets
    On Error Resume Next
    If Sh.Name <> "Comparaison_de_prix" Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Sh.Range("H16:H400")) Is Nothing Then Sh.Range(Target.Offset(0, -7).Address & ":" & Target.Address).Copy Destination:=Sh.Range("A12")
    If Not Application.Intersect(Target, Sh.Range("S16:S400")) Is Nothing Then Sh.Range(Target.Offset(0, -7).Address & ":" & Target.Address).Copy Destination:=Sh.Range("L12")
Next Sh
End Sub