Sub Question_Dates()
Date_D = InputBox("Entrez la date de Début" & Chr(13) & Chr(10) & Chr(13) & "Attention, la date doit impérativement être saisie selon le modèle suivant : 00/00/0000", "Définir les dates", "", 200, 200)
Date_F = InputBox("Entrez la date de Fin" & Chr(13) & Chr(10) & Chr(13) & "Attention, la date doit impérativement être saisie selon le modèle suivant : 00/00/0000", "Définir les dates", "", 200, 200)
End Sub