Erreur code

Sub Copier()
'
' Copier Macro
' Touche de raccourci du clavier: Ctrl+c
'
Range("B4:H4").Select
Selection.Copy
[COLOR="Blue"]End Sub[/COLOR]

[COLOR="blue"]Sub[/COLOR] Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
MsgBox "Click on " & Target.[COLOR="Blue"]Address[/COLOR]
End If

Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 7)).Select
[COLOR="Red"]' J'ai désactivé cette ligne car je ne sais pas ce que tu cherches à faire[/COLOR]
[COLOR="Red"]'ActiveSheet.Paste[/COLOR]

End Sub

Option Explicit

Sub Copier()
Dim Target As Range
'
' Copier Macro
' Touche de raccourci du clavier: Ctrl+c
'
  Set Target = Selection
  Range("B4:H4").Copy
  If Not Intersect(Target, Range("A:A")) Is Nothing Then
    MsgBox "Click on " & Target.Address
  End If
  Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 7)).Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Range("B4:H4").Copy Target
End Sub

Sub Copier()
'
' Copier Macro
' Touche de raccourci du clavier: Ctrl+c
'
Dim adresse As String
adresse = Selection.Address
Range("B4:H4").Select
Selection.Copy
'Worksheet_SelectionChange(ByVal Target As Range)
'If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
'MsgBox "Click on " & Target.Adress
'End If
'Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 7)).Select
Range(adresse).Offset(0,1).Select
ActiveSheet.Paste
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Range("B4:H4").Copy Destination:=Target.Offset(0, 1)
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Range("B4:H4").Copy Target[B][COLOR="Blue"].Offset(0 , 1)[/COLOR][/B]
End Sub