?????????????????????????@ Patrick - Oui, ta solution est également valable sauf que si l'on a plusieurs valeurs identiques sur une même ligne, la macro plante à cause des superpositions de valeurs.
.Cells.SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
Ne fonctionne pas non plusBonjour linadeau, Eric C,
Exécutez cette macro :
C'est la feuille active qui est traitée.VB:Sub Suppr_mp3() Cells.Replace "*mp3*", "#N/A" If Application.CountIf(Cells, "#N/A") Then Cells.SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete End Sub
A+
Ce n(est pas le problème posé sur ce fil.Initialement je devais faire une liste de tous les fichiers d’un dossier!