Bonjour!!

J'ai créé une petite boite dialogue qui demande de saisir la date:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim d 'demande saisir la date du controle
d = InputBox("Veuillez saisir la date du contrôle, puis cliquez sur OK...", _
"Format jour/mois/année")
    If d = "" Then Exit Sub
    If IsDate(d) Then
    Sheets("TdP").Select
        Range("m7").Value = CDate(d)
    End If
Moi même je me trompe souvent dans le format pour saisir cette date.
Est il^possible d'afficher un message qui dit en cas d'erreur "format de date jj/mm/aaaa incorrect ou quelque chose dans le genre?