Salut Lyttonjr,
ainsi, sans doute...
Un double-clic sur la date en [A2] démarre la macro
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
If Not Intersect(Target, Range("A2")) Is Nothing Then
Cancel = True
With Worksheets("b")
.Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1).Resize(10, 1).Value = Range("A2").Value
End With
End If
'
End Sub
A+