Bonjour
J'ai ceci. Je cherche à déprotéger avec un bouton.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
If Not Intersect(Target, Range("plageMNOPQ")) Is Nothing Then
                    MsgBox "acces interdit pour tout le monde"
                    Application.EnableEvents = False
                    Range("A2").Select
                    Application.EnableEvents = True
                End If
Comment je peux faire ?
Merci