Merci pour votre réactivité.
Je n'ai pas de message d'erreur.
Cependant que je souhaite effectuer un verrou total
ElseIf ModeVerrou = "Verrou Total" Then
Je n'ai pas de MsgBox me prévenant que :
If (Msgbox("Attention ! Le classeur est actuellement verrouillé. Après cette action, le classeur sera automatiquement déverrouillé. Voulez vous continuer ?", vbYesNo, "Confirmation de déverrouillage") = vbYes) Then
Je ne sais pas si ça peut vous aider.