Effacer le contenu dune case suite a la couleur d'une autre

Bonjour,

y'a t il une facon de parcourir chaque ligne et si on rencontre une case jaune on efface le contenu de la derniére case de cette ligne

j'ai commencé par ce code la mais il m'affiche aucune resultat

For r = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

Set MaPlage = Range("A:AO").Rows(e)

For Each c In MaPlage.Cells

If c.Interior.Color = vbYellow Then

ActiveSheet.Cells(r, 42).Clear

End If

Next c
Next r

Bonsoir

Un petit fichier dans lequel tu y indiques ce que tu as et ce que tu veux (me) permettrait de mieux comprendre ce que tu veux faire