Inputbox date : Mois et jours inversés

Bojour !

Je suis sur excel 2007, je fait une macro qui se déclenche lorsque l'utilisateur click sur une des cellules A1:A7.
La macro est un imputbox demandant une date.
Le problème est que la date que l'utilisateur rentre s'inverse entre les mois et les jours).
Voici mon code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A7")) Is Nothing Then

'MACRO Date
Selection.NumberFormat = "dd/mm/yy"
Mdir = InputBox("SELECT THE DATE: (dd/mm/yy)", "First Activity Start date")
If Mdir = "" Then
MsgBox "Canceled"
Exit Sub
End If
ActiveCell.FormulaR1C1 = Mdir
End If
End Sub

Merci beaucoup par avance !