Sub cmdValider_click()
madate = "29/13/2009"
On Error GoTo Suite
If IsDate(CDate(madate)) Then
MsgBox "Bonne date"
Else
End If
Exit Sub
Suite:
Resp = MsgBox("Vous avez choisi de mauvaises valeurs (Février, 30 ou 31 jours)", vbInformation + vbOKOnly, "Calculer votre age")
End Sub