Bonjour,
Je n'arrive pas à faire de boucle, je cherche à trouver tous les mots "total" d'une page et a supprimer La Ligne dans laquel le mot apparaît.
Voici un code, il fonctionne mais il bug
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For i = 1 To 20
  Cells.Select
    Selection.Find(What:="total", After:=ActiveCell, LookIn:=xlFormulas, _
        lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.EntireRow.Delete
Merci de votre aide.