Inserer une ligne grace à un bouton

Sub Insere()
Dim Derlig&
Derlig = [B65000].End(xlUp).Row
With Rows(Derlig)
    .Copy
    .Insert Shift:=xlDown
    .SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
With Range(Cells(5, 2), Cells(Derlig + 1, 12))
    With .Borders
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With .Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With .Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End With
End Sub