Bonjour EDDELETE,
Une solution parmi d'autres possibles :
Private Sub CouleurProtection()
For Each cellule In Selection
If cellule.Locked = True Then
Sheets("Feuil1").Unprotect
Range(cellule.Address).Interior.ColorIndex = 8
Sheets("Feuil1").Protect
End If
Next cellule
End Sub
Ici je ne m'occupe que de la sélection en cours, mais tu peux adapter à ton cas personnel. Note aussi que le unprotect/protect est là car si la feuille est déprotégée ça ne fonctionne pas. De plus si tu as un mot de passe pour la protection, il faut l'indiquer comme ceci : .Unprotect("MotDePasse") idem pour le .protect
J'espère que ça te convient.
A+
José