Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Cancel = true évite le mode édition de la cellule clicquée
Cancel = Target.Column = 1 And Target.Count = 1
If Cancel Then Target(2).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub