MACRO POUR INSERER UNE LIGNE EXCEL SOUS CONDITION

Option Explicit
Dim ligne As Long
Dim i As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then 'adapter la colonne
If Target.Value = "" Then Exit Sub 'si vide
If Not IsNumeric(Target) Then Exit Sub ' si pas numérique
ligne = Target.Row
Rows(ligne & ":" & ligne).Select
For i = 1 To Target.Value
 inserer
 Next
End If
End Sub
Sub inserer()
Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Range("A" & ligne + 1) = ""
    Application.ScreenUpdating = True
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nombre As Integer, ligne As Range
If Not (Intersect(Target, Me.Columns(1)) Is Nothing) Then
    Application.EnableEvents = False
    Set ligne = Intersect(Target, Me.Columns(1))
    If ligne.Count = 1 Then
        If IsNumeric(ligne) Then
            nombre = ligne
            ligne = ""
            If nombre > 0 Then
                ligne.EntireRow.Copy
                ligne.EntireRow.Offset(1).Resize(nombre).Insert
            End If
        End If
    End If
    Application.EnableEvents = True
    Application.CutCopyMode = False
End If
End Sub