Suppression automatique d'un bloc de ligne

Sub Cherche()
    Dim i As Long
    Dim Plage As Range, modèle As Range
    
    With Worksheets("Feuil1").Range("C:D")
        Set modèle = .Find(what:="type", Lookat:=xlWhole)
        If Not modèle Is Nothing Then
            ligne = modèle.Row
            'on efface seulement les 15 lignes du bloc.. à supposer que c'est toujours la meme taille..
            Range("B" & ligne & ":D" & ligne + 15).Clear
'            'ou on supprime (avec décalage vers le haut les 15 lignes du bloc
'            Range("C" & ligne & ":D" & ligne + 15).Delete shift:=xlUp
            
        End If
    End With
End Sub

Sub supprimetype()
Range("Type").EntireRow.Delete

End Sub

Sub supprime()

fin = Range("E" & Range("E:E").Rows.Count).End(xlUp).Row

For i = fin To 1 Step -1
   If Range("E" & i) = "+" Then
        Rows(i).EntireRow.Delete
    End If
Next i

End Sub