macro pour remplacer lignes contenant x

[JABE]

Voilà j'ai déjà posté la même question sur le forum de telecharger.com que vous connaissez sans doute vous pouvez lire mon post ici :
http://forum.telecharger.01net.com/forum2.php3?post=53301&cat=1

Seulement au départ je posais la question pour word mais via excel avec une macro ça doit être + simple, je repose ma question ici pour ceux qui voudraient pas aller sur le lien.

Je voudrais supprimer toutes les lignes d'un tableau ou d'un texte contenant une certaine lettre de l'alphabet, est-ce que c'est possible ? Qu'excel me supprime toutes les lignes ayant un mot contenant telle lettre ? Si oui que faut-il taper comme code ?

Attention je ne cherche pas un truc pour supprimer juste la lettre mais toute la ligne qui la contient, et que la lettre soit en début de mot au milieu ou pas.... vous voyez ? J'ai hâte de vous lire.Merci d'avance.

 

[didier]

Bonjour,

Voici le code :
Sub SupprLigne()
ActiveCell.CurrentRegion.Select
For Each Cell In Selection
If InStr(1, Cell, "x") > 0 Then
Cell.EntireRow.Delete
End If
Next Cell
End Sub

Cette procédure examine chaque cellule de la sélection et si la fonction InStr trouve la lettre 'x' dans le texte (valeur retournée est égale à l'emplacement de la lettre dans la chaine) la ligne est supprimée.

Bonne journée.
Didier