Suppression contenu si un mot précis est dans les cellules

Bonjour,

Je suis ce qu'on appel un débutant sur excel , je suis assez débrouillard et jusque ici j'ai réussi à m'en sortir mais la je suis sur une colle

et j'ai grandement besoin d'aide

Certes simples et peu esthétique mais c'est une première pour moi avec excel soyez indulgent

J'ai réussi à mettre une couleur automatiquement grâce à des mots , l’addition des prix et un bouton pour ma macro actuelle ...

Mon problème est le suivant , je recherches une macro qui pourrait me permettre lorsque , le mot est "non" dans la case choix que tout le contenu de la ligne soit supprimé , en effet la macro que j'ai pu trouver est celle ci :

Sub SuppNON()
Dim I As Integer
For I = [A65000].End(xlUp).Row To 1 Step -1
If Not Cells(I, 1).Resize(1, 6).Find("Non") Is Nothing Then Rows(I).Delete
Next I
End Sub

Malheureusement cette macro supprime complètement la ligne est non le contenu , mes calculs s'en trouvent alors gênée et l'aménagement en est modifié également la macro n'est donc pas celle adéquat

J'aimerai si possible trouver une aide ici si vous trouvez une solution à mon problème ou une amélioration , c'est également la première fois que j'utilise ce genre de forum.

Merci et bonne continuation.

Bonjour,

vous pourriez remplacer .Delete par .ClearContents

Merci , je ne connaissais pas cette fonction , je vous souhaite une bonne soirée !