XL 2016 Macro pour incrémenter des lignes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    ' Si plusieurs cellules sélectionnées ou ne contient pas "Ajouter une ligne" on sort.
    If Target.Count > 1 Or Left(Target, 17) <> "Ajouter une ligne" Then Exit Sub
    L = Target.Row          ' Ligne cliquée
    Rows(L + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C" & L & ":E" & L).AutoFill Destination:=Range("C" & L & ":E" & L + 1), Type:=xlFillDefault
    Range("C" & L + 1 & ":E" & L + 1).ClearContents
    Range("C" & L + 1 & ":E" & L + 1).Select
Fin:
End Sub