Effacer contenu de cellules (couleur)

Bonjour,

je voudrais une macro pour effacer le contenu des cellules en jaune,ou autre couleur.

merci de votre réponse

Bonjour,

Sub Macro1()
For Each cell In Sheets("Feuil1").Range("A:A")
        If cell.Interior.Color = 65535 Then
       cell.Value = ""
         cell.Interior.Color = xlNone
        End If

   Next cell

End Sub

Bonjour

Pour enlever toute couleur:

Sub effecerCouleur()
Range("A:A").Interior.Color = xlNone
End Sub

merci à vous, bonne journée !