Macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Cells(1, 1).Value = "clic" Then
Range("B3").Value = Target.Offset(0, -1)
Range("C3").Value = Target.Offset(0, -1).End(xlDown).Value
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim data1 As String
Dim cellule As Range
Dim dl1 As Long ' dernière ligne
If Target.Count > 1 Then Exit Sub
With Sheets(Target.Worksheet.Name)
dl1 = .Range("c65536").End(xlUp).Row
If Not Intersect(Target, Range("c4:c" & dl1)) Is Nothing Then
    If Target.Value <> "clic" Then Exit Sub
    ' on recherche l'intervalle
    For i = 1 To dl1
        If Target.Offset(i, -1) <> "" Then Exit For
    Next i
        Range("B3").Value = Target.Offset(0, -1)
        Range("C3").Value = Target.Offset(i, -1)
End If
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Count > 1 Then Exit Sub
If Target = "clic" Then
    [B3] = Target.Offset(0, -1)
    [C3] = Target.Offset(0, -1).End(xlDown)
End If
End Sub