Supprimmer une plage qui se trouve entre 2 lignes comportant une cellule avec texte

Sub Supprimer_Plage()
    Dim c As Range, c2 As Range
    Dim sh As Shape
    On Error GoTo err_Handler
    With ActiveSheet
    Set c = .Cells(.Shapes(Application.Caller).TopLeftCell.Row - 2, 1)
    If Not c Is Nothing Then
        Set c2 = .Range("A:A").Find(what:=c, After:=c, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
        If Not c2 Is Nothing Then
            For Each sh In .Shapes
                'Supprime les anciens boutons
                If sh.TopLeftCell.Row >= c.Row And sh.TopLeftCell.Row <= c2 Then sh.Delete
            Next
            .Range(c, c2).EntireRow.Delete
        End If
    End If
    End With
err_Handler:
End Sub

               If sh.TopLeftCell.Row >= c.Row And sh.TopLeftCell.Row <= c2.Row Then sh.Delete