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