Bonsoir Bibix, bonsoir le forum,
Je ne sais pas comment tu t'y prends mais le code ci-dessous fonctionne sans bug :
Sub SELECTION()
With Sheets("TOUS NIVEAUX")
.Unprotect "Toto" '=====================================> DÉPROTECTION (mot de passe : "Toto")
If Sheets("RESULTAT").Range("B10") = True Then
.Range("A7").Interior.Color = RGB(255, 255, 0)
.Range("A15").Interior.Color = RGB(255, 255, 0)
.Range("A20").Interior.Color = RGB(255, 255, 0)
.Range("A25").Interior.Color = RGB(255, 255, 0)
.Range("A33").Interior.Color = RGB(255, 255, 0)
.Range("A38").Interior.Color = RGB(255, 255, 0)
.Range("A43").Interior.Color = RGB(255, 255, 0)
.Range("A49").Interior.Color = RGB(255, 255, 0)
.Range("A55").Interior.Color = RGB(255, 255, 0)
.Range("A63").Interior.Color = RGB(255, 255, 0)
.Range("A67").Interior.Color = RGB(255, 255, 0)
.Range("A74").Interior.Color = RGB(255, 255, 0)
.Range("A80").Interior.Color = RGB(255, 255, 0)
.Range("A87").Interior.Color = RGB(255, 255, 0)
.Range("A93").Interior.Color = RGB(255, 255, 0)
.Range("A98").Interior.Color = RGB(255, 255, 0)
.Range("A105").Interior.Color = RGB(255, 255, 0)
MsgBox ("Réponse affichées")
Else
.Range("A7").Interior.Color = RGB(255, 255, 255)
.Range("A7").Interior.Color = RGB(255, 255, 255)
.Range("A15").Interior.Color = RGB(255, 255, 255)
.Range("A20").Interior.Color = RGB(255, 255, 255)
.Range("A25").Interior.Color = RGB(255, 255, 255)
.Range("A33").Interior.Color = RGB(255, 255, 255)
.Range("A38").Interior.Color = RGB(255, 255, 255)
.Range("A43").Interior.Color = RGB(255, 255, 255)
.Range("A49").Interior.Color = RGB(255, 255, 255)
.Range("A55").Interior.Color = RGB(255, 255, 255)
.Range("A63").Interior.Color = RGB(255, 255, 255)
.Range("A67").Interior.Color = RGB(255, 255, 255)
.Range("A74").Interior.Color = RGB(255, 255, 255)
.Range("A80").Interior.Color = RGB(255, 255, 255)
.Range("A87").Interior.Color = RGB(255, 255, 255)
.Range("A93").Interior.Color = RGB(255, 255, 255)
.Range("A98").Interior.Color = RGB(255, 255, 255)
.Range("A105").Interior.Color = RGB(255, 255, 255)
MsgBox ("Réponses cachées")
End If
.Protect "Toto" '=====================================> PROTECTION (mot de passe : "Toto")
End With
End Sub