Salut Manu, le forum
j'ai un userfrom aussi sur lequel j'appelle un calendrier
je l'ai modifier pour tester ta demande
voici le code a toi de le modifier le cas échéant
Private Sub Calendar1_Click()
UFSaisie.TBoxdate = Format(Calendar1, 'DD/MM/YYYY')
If Calendar1 < Date Then MsgBox (' données invalide')
Unload UserForm1
End Sub
JC