Création d'une variable qui contient la date dans huits jours

Création d'une variable qui contient la date dans huit jours	Aéronautique	Astronomie	Géologie	Météorologie	Végétaux
	Animaux	Biologie Santé	Informatique	Paléontologie
	Archéologie	Chimie	Mathématiques	Physique

Dim Datemoment
Dim DatemomentF
Dim Datemois
Dim Datejour
Dim Dateannee
Dim dateCourante
Dim dateFuture

'creation de la variable qui contient la date dans huit jour
dateCourante = Date()
dateFuture = DateAdd("d",8, dateCourante)

Datemois = DatePart("m",date)
Datejour = DatePart("d",date)
Dateannee = DatePart("yyyy",date)

DatejourF = DatePart("d",dateFuture)
DatemoisF = DatePart("m",dateFuture)
DateanneeF = DatePart("yyyy",dateFuture)

Datemoment = Datemois&"/"&Datejour&"/"&Dateannee
DatemomentF = DatemoisF&"/"&DatejourF&"/"&DateanneeF