Vider certaines cellules Excel

Const lideb = 2 

Public Sub suppagent() 
Dim lifin As Long, li As Long 
lifin = Range("A" & Rows.Count).End(xlUp).Row 
For li = lideb To lifin 
  If Left(Range("A" & li).Value, 5) = "agent" Then Range("A" & li).ClearContents
Next li 
End Sub

Sub test()
  Dim Nbr As Integer, Pos As Integer, Indice As Integer, Col_A As Range

  With Sheets("feuil1")
    Set Col_A = Range("A2:A6")
    'Recherche du nombre d'occurences
    Nbr = Application.CountIf(Col_A, "agent*")
    If Nbr > 0 Then
      Pos = 2
      For Indice = 1 To Nbr
        'Recherche de la position des occurences
        'xlWhole recherche une valeur exacte,
        'xlPart recherche valeur contenue dans la cellule
        Pos = .Columns("A").Find("agent*", .Cells(Pos, "A"), , xlPart).Row
        'Effacement contenu cellule
        .Range("A" & Pos).ClearContents
      Next Indice
    End If
  End With
  
End Sub