Effacement de llignes

Option Explicit
Sub BobJazz_RockNRoll()
Dim Msg As Byte
Dim Plage As Range, Cell As Range
Dim WS As Worksheet
Dim L As Long, Counter As Long
Set WS = ActiveSheet
With WS
    Set Plage = .Range(.Range("A1"), .Range("A65536").End(xlUp))
End With
For Each Cell In Plage
    If Cell = "*" Or Cell.End(xlToRight).Column = 256 Then
        Counter = Counter + 1
    End If
Next
If Counter > 0 Then
    Msg = MsgBox(Counter & " Lignes vont être supprimées, dans la Feuille " & WS.Name & vbCrLf & _
                 "voulez-vous continuer ?", vbQuestion + vbYesNo)
    
    If Msg = vbYes Then
    
        For L = Plage.Rows.Count To 2 Step -1
            If Cells(L, 1) = "*" Or Cells(L, 1).End(xlToRight).Column = 256 Then
                Rows(L).Delete
            End If
        Next
    
    End If
End If
End Sub

Option Explicit
Sub BobJazz_Its_Only_RockNRoll_()
Dim Msg As Byte
Dim Plage As Range, Cell As Range
Dim WS As Worksheet
Dim L As Long, Counter As Long
 
 
Set WS = ActiveSheet
With WS
    L = .UsedRange.Rows.Count
    Set Plage = .Range("A1:A" & L)
End With
 
For Each Cell In Plage
    If Cell = "*" Or Cell.End(xlToRight).Column = 256 Then
        Counter = Counter + 1
    End If
Next
If Counter > 0 Then
    Msg = MsgBox(Counter & " Lignes vont être supprimées, dans la Feuille " & WS.Name & vbCrLf & _
                 "voulez-vous continuer ?", vbQuestion + vbYesNo)
 
    If Msg = vbYes Then
 
        For L = Plage.Rows.Count To 2 Step -1
            If Cells(L, 1) = "*" Or Cells(L, 1).End(xlToRight).Column = 256 Then
                Rows(L).Delete
            End If
        Next
 
    End If
End If
End Sub