[VBA]Diviser un nombre de moi par deux

Bonjour,
je suis entrain de créer une application basé sur des calculs de dates, et la je me trouve coincé face à un calcul assez ... bizarre :)
voici les données :
en A1 l'utilisateur donne une date (par exemple 01/07/2010)
en A2 il donne un nombre compris entre 12 et 18 (qui correspond à une période en mois)
en A3 le résultat...
mon calcul doit enfaite diviser le nombre donnée en A2 par 2 exemple (15/2= 7,5) et ce résultats doit être retranscrit en nombre de jour/mois, j'additionne ce résultat à la date pour obtenir le jour exacte 7mois et demi plus tard (au jour prés :) )je vous donne une ébauche de ce que j'ai fait :

Dim dat1 As Date    ' Déclare les variables.
Dim IntervalType As String
Dim Num As Integer
Dim Msg1
IntervalType = "m"  ' "m" indique l'intervalle en mois.
dat1 = ActiveWorkbook.ActiveSheet.Range("E10").Value
If textbox1.Value < 12 Then
MsgBox ("la durée ne doit pas être inférieure à 12 mois !")
Exit Sub
End If
If textbox1.Value > 18 Then
MsgBox ("la durée ne doit pas être suppérieure à 18 mois!")
Exit Sub
End If
If textbox1.Value > 12 < 18 Then
Num = ActiveWorkbook.ActiveSheet.Range("E12") / 2
End If
Msg1 = DateAdd(IntervalType, Num, dat1)
ActiveWorkbook.ActiveSheet.Range("H14").Value = Msg1

ce code est fonctionnel ! mais si on donne comme date 01/07/2010 et que l'on donne un nombre de mois impair (13 par ex) on se retrouve au 01/01/2011...
si vous avez besoin de plus d'explication je vous écoute