Sélection et copier

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'
' allerversFeuilleSelection Macro
'


With Selection
    .Copy Destination:=Feuil2.Range("A65536").End(xlUp).Offset(1, 0)
    '.Delete
End With


End Sub

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Cancel = True
    If c.Column <> 1 Then Exit Sub
    With c
        .EntireRow.Copy Destination:=Sheets("Selection").Range("a" & Rows.Count).End(xlUp)(2)
        .Interior.ColorIndex = 36    ' facultatif
        .Select
    End With
End Sub

With Selection.Resize(, 7)

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If R.Column = 1 Then R.Resize(, 7).Copy Feuil2.[A4]
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If R.Column = 1 Then Feuil2.[A4].Resize(, 7) = R.Resize(, 7).Value
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'
' allerversFeuilleSelection Macro
'


With Selection.Resize(, 7)
    .Copy Destination:=Feuil2.Range("A65536").End(xlUp).Offset(1, 0)
    .Delete
End With


End Sub

If c.Column <> 1 Then Exit Sub