Bonjour,

Je viens vous demander de l'aide car cela fait 2 jours que je suis dessus et je suis sur le point d'exploser !!!

Sous Excel, je voudrais faire une macro pour supprimer les lignes qui contienne un certain texte. Il me faut donc recherche ce texte dans la colonne A, et s'il est présent supprimé la ligne entière. Cela pour 2 mots différent.

J'ai créer cette macro : (Dans ce cas, il faut supprimer les ligne dont la cellule A contient le mot "president" ou le mont "directeur". Si la cellule contient "président d'honneur" ou "directeur général" je veux que les lignes soient supprimée aussi...)

Do

If Cells.Find(What:="president").Activate Then

selection.EntireRow.Delete

Else: Do

Cells.Find(What:="directeur").Activate

selection.EntireRow.Delete

Loop

End If

Loop

End Sub

Le probleme est que une fois que le mot "president" n'est plus trouvé, il ne cherche pas s'il il reste des cellules avec "directeur". Il m'affiche "erreur d'execution '91'...

HELP !!!Configuration: Windows XP
Firefox 2.0.0.14