Saut les amis ,

je suis bloquer.
Voici mon petit soucis. Je veux faire des Calculs avec une date. Par exemple Date du jour = 12/04/2018 + 12 (12 jours de plus) = 24/04/2018.
Voici mon code VBA

Private Sub nbjrs_AfterUpdate()

Me.echeance = Format(Me.datereg, "mm/dd/yyyy") + Me.nbjrs

End Sub

quand je veux exécuter voici l'erreur :
Nom : 000.png
Affichages : 144
Taille : 23,8 KoNom : 3025.png
Affichages : 139
Taille : 4,3 Ko

j'ai même utilisé cdbl(me.ndjrs) pour convertir mais sa ne passe pas.