Bonjour …
Si la sélection comporte les 2 couleurs, pour passer du noir au rouge ou du rouge au noir * :
Sub BoutonCouleur()
Dim C As Range
Me.Unprotect (".")
For Each C In Selection ‘boucle sur chaque cas
C.Font.Color = IIf(C.Font.Color = vbRed, vbBlack, vbRed)
Next
Me.Protect Password:="."
End Sub
Nota : la sélection se fait sur des cellules non protégées au départ !
* information non données au départ. Dans le cas d’uniformité on n’a pas besoin de la boucle !
Sélection.Font.Color = IIf(selection.Font.Color = vbRed, vbBlack, vbRed)
ou voir la proposition de Dan (salut ).