disparition de zero VBA

bonjour a tous,

voila j'ai un petit problème dans la macro.

le but de ma macro est d'incrémenté de 1 ma valeur qui est constituer de "d" + année + 0001
ma valeur de départ est donc D20150001
sauf que ma macro affiche la valeur suivante D20152 il me manque donc 3 zeros
du cout si on réactive la macro les donné sont complétement faux "D2015153"
ci dessous le code vba.
merci à vous

Sub numero_devis()

Dim num As String
Dim derdevis As String
Dim dercelulle As Object
Dim num1 As String
Dim nouveauNum As String
Dim annee As String
annee = Year(Now)
'recupére la dernier cellule remplie
derdevis = Sheets("recap devis").Range("A" & Rows.Count).End(xlUp).Value

num = CInt(Right(CStr(derdevis), 4)) 'isole les 4 derniers chiffre
num1 = num + 1
nouveauNum = "D" + annee + num1

'ecrit dans la premier cellule vide
Sheets("recap devis").Range("a" & Rows.Count).End(xlUp)(2) = nouveauNum


End Sub