Option Explicit
Const mdputil = "vide,toto,titi,riri,fifi,loulou,joujou,bidule,chose,machin,tonton,nounou,fanfan"
Sub testmotdepasseutilisation()
Dim T, I&, W&, X
T = Split(mdputil, ",")
I = 1
re:
If I <= 3 Then
X = InputBox("Entrez votre mot de passe " & vbCrLf & "trois tentatives autorisées", "mot de passe ")
If StrPtr(X) = 0 Then MsgBox "vous décidez d'annuler l'application va se fermer": Quitter: Exit Sub
If X <> Split(mdputil, ",")(Month(Date)) Then
MsgBox "mot de passe invalide", vbOK + vbCritical
I = I + 1: GoTo re
End If
Else
MsgBox "3 tentatives ont été tenté sans succes" & vbCrLf & _
" par...