suppr de cellule a partir du contenu

salut,

tu tapes en A1 la chine que tu veux effacer (dans ton cas 'test')

la routine suivante effacera le contenu de toutes les cellules de la plage(A2:J10) qui commencent par 'test' (Ca marche bien sur avec n'importe quelle chaine de caractères... :lol:

Sub supr()
cherch = Range('A1').Value
Range('A2: J10').Select
x = Len(cherch)
For Each vcel In Selection
test = Trim(vcel.Value)
If Left(test, x) = cherch Then vcel.ClearContents
Next
End Sub

merci pour ta reponse rapide
mais comment faire si plusieurs mot different ex: bateau;voiture....

Tu veux dire plusieurs mots différents à éliminer ??

2 solutions:
1- tu passes 2 fois la routine :whistle:
2- On modifie la routine en définissant une seconde boucle qui analyse les cellules d'une plage où tu auras tapé LES chaines que tu recherches..

merci bcp