comment inserer une ligne automatique

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Rows(Target.Row).Select
    Selection.Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Sub InserLig()
 Dim i As Long
 With Worksheets("Classeur8")
 For i = .Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
    If .Cells(i, 1) <> .Cells(i - 1, 1) Then
        .Rows(i).Insert Shift:=xlUp
    End If
 Next
 End With
End Sub

Sub InserLig2()
 Dim i As Long
 
 i = 2
 With Worksheets("Classeur8")
 Do
    If .Cells(i, 1) <> .Cells(i - 1, 1) Then
        .Rows(i).Insert Shift:=xlUp
        '.Cells(i - 1, 1) = .Cells(i, 1)
        .Cells(i, 1) = .Cells(i + 1, 1)
        .Cells(i, 1).Resize(1, 7).Interior.ColorIndex = 6
    End If
    i = i + 1
 Loop Until .Cells(i, 1) = ""
 End With
End Sub

        .Cells(i, 2) = .Cells(i + 1, 1)
        Range(.Cells(i + 1, 7), .Cells(i + 1, 58)).Copy Range(.Cells(i, 7), .Cells(i, 58))