VBA - macro autour d'une date

Bonjour,

Comment faciliter la saisie ( par inputbox) d'une date avec trois cases (jour, mois, année) en laissant la possibilité de changer l'année éventuellement ?
Comment créer un message d'erreur si une date saisie n'est pas au bon format ou contient une erreur ? (Dans un premier temps, (avant VBA) j'avais paramétré cette possibilité en utilisant Données/Validation/Alerte d'erreur. J'aimerais pouvoir faire de même en VBA.)
Enfin, je me suis aperçue d'un problème sur les formats de date entre Excel et VBA, l'une au format français, l'autre au format américain.

Merci d'avance


Ci dessous, ma macro (la première ligne est nécessaire puisqu'elle est liée à une autre macro) :

Sub datepass()

ActiveCell.Offset(0, 1).Select
ActiveCell = InputBox("Saisir la date de passation de la commande :", "NOUVELLE COMMANDE", "/2012")

End Sub