Tu peux essayer avec quelquechose de ce style :
demande:
naissance = InputBox("Veuillez entrer la date de naissance de " & Myname, "AJOUTER")
If Not (IsDate(naissance)) Then
MsgBox "Veuillez entrer la date sous la forme jj/mm/aa"
GoTo demande
End If
@+