Sub MiseEnEvidenceSiProtection()
Dim MaPlage As Range
Set MaPlage = Selection
If ActiveSheet.ProtectContents Then
If ActiveSheet.Protection.AllowFormattingCells Then
MaPlage.Interior.ColorIndex = xlColorIndexNone
MsgBox "La feuille est protégée -> Cellules de la Sélection sans couleur de remplissage : " & MaPlage.Address
Else
MsgBox "La feuille est protégée (mise en forme des cellules non autorisée) -> Cellules de la Sélection : " & MaPlage.Address
End If
Else
MaPlage.Interior.Color = RGB(0, 255, 0)
MsgBox "La feuille n'est pas protégée -> Cellules de la Sélection en Vert : " & MaPlage.Address
End If
End Sub