Sub effacer()
For Each cellule In Range("A1:V80")
If cellule.Interior.ColorIndex = xlNone Then cellule.Value = ""
Next cellule
End Sub
Ou utiliser DisplayFormat (sur Excel 2007 et versions ultérieures) :Remarque: ça ne fonctionnera pas si la coloration des cellules est issue d'une MFC
Dans ce cas il faudra utiliser la condition de la MFC dans la ligne qui efface les cellules.
Sub effacer()
For Each cellule In Range("A1:V80")
If cellule.DisplayFormat.Interior.ColorIndex = xlNone Then cellule = ""
Next cellule
End Sub