Rebonjour Forum,
Merci titcoeur, ça marche parfaitement.
Je voudrais juste résumer ta macro pour savoir si j'ai bien compris.
Sub test()
Dim zone As Range
Set zone = Range('zone')
Tu dis à la macro de travailler dans toutes les cellules comprises dans 'zone'.
For Each cell In zone
If cell.Font.ColorIndex = 5 Then
cell.Value = 0
Si la couleur est 5 (correpond à la couleur bleue), alors mettre 0 comme valeur
End If
Next
Par contre, je ne comprends pas l'utilité du end if et du next
Désolé Thierry. J'ai utilisé la réponse de Titcoeur; Pour être honnête, elle me paraissait moins complexe pour un grouillot comme moi.
Merci encore
Ciao
Totor