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