Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pas, dercel As Range, P As Range
If IsEmpty(Target(1)) Then Exit Sub
Cancel = True
pas = 2 'à adapter
Set dercel = Target(1).End(xlDown)
If IsEmpty(dercel(0)) Then Set dercel = Target(1)
Set P = Range(Target(1), dercel)
With P(1, 2).Resize(Application.Ceiling(P.Count / pas, 1))
.Formula = "=OFFSET(" & P(1).Address & "," & pas & "*(ROW()-" & P(1).Row & "),)"
.Value = .Value 'facultatif, supprime les formules
End With
End Sub