Sup auto de ligne .. ca boucle !![RESOLU]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Worksheets("feuil1")
    L = ActiveCell.Row - 1
    B = Len(.Range("a" & L))
    MsgBox B
  If Len(.Range("a" & L)) > 50 Then
 Range("A" & L & ":C" & L).Select
    Selection.RowHeight = 30
With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
        .MergeCells = True
    End With
    MsgBox "supp ligne " & L + 1
   Rows(L + 1 & ":" & L + 1).Select
   Selection.Delete Shift:=xlUp
   Range("a" & L + 1).Select
Else
Range("A" & L & ":C" & L).Select
    Selection.RowHeight = 15
With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = False
        .MergeCells = True
    End With
 End If
 End With
Application.EnableEvents = True
End Sub