Vider certaines cellules Excel

bonjour

une macro qui efface le contenu des cellules de la colonne A commençant par "agent"

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

RQ. ce code ne supprime pas les lignes concernées

bonne suite

Bonjour,

'Ouvrir VBA par Alt+F11
'Click Droit sur Microsoft Excel Objet en haut a gauche
'Insertion------>Module
'Click gauche fenetre a droite
'Copier le code ci-dessous

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

Pour lancer:

Positionner le curseur devant Sub
Ensuite click gauche sur le triangle vert dessous Format (Menu en haut)

Bonne suite