Macro sur cellule selectionnée

Sub test()
Dim lig&
lig = ActiveCell.Row
    Range("A" & lig).Value = "=L80"
    Range("D" & lig).Value = "=A80"
    Range("O" & lig).Value = "1"
    Range("M" & lig).Value = "=O80"
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([A1:A79], Target) Is Nothing Then
Set Aselection = Application.InputBox("Selectionner la plage de cellule", Type:=8)

For Each cel In Aselection
cel.Value = "=$L$80"
cel.Offset(, 3).Value = "=$A$80"
cel.Offset(, 12).Value = "=1"
cel.Offset(, 14).Value = "=$O$80"
Next cel
End If
Cancel = True
End Sub