probleme vba

[judoka0209]

bonjour à tous
je voudrais quant la variante "<<dateC0>> est un mois pair il me remplisse que la variable de 1 à 29 et pour les mois impair de 1 à 30 et fevrier de 1 à 28 ou 29 si année bisexstile
merci

Sub doms8()
'
' doms8 Macro
' Macro créée le 03/09/2004 par Dom's
'
Dim buf As Variant
Dim dateDR As Date
Dim i As Integer
Dim var1 As Variant
Dim var2 As Variant
Dim var3 As Variant

'*******************
'**** DATE DE DR ***
'*******************

Do
buf = InputBox("Entrez la Date", _
"Date de début", Date, 10, 10)
If buf = "" Then Exit Sub
If IsDate(buf) Then
dateDR = buf
Exit Do
Else
Beep
End If
Loop



Remplacer "<<datea0>>", Format(dateDR, "dddd")
Remplacer "<<dateb0>>", Format(dateDR, "dd mmmm yyyy")
Remplacer "<<dateC0>>", Format(dateDR, "mmmm yyyy")
' boucle permettant de remplacer toutes les dates dans le documents
'variable i de 1 à 30
For i = 1 To 30
'on initialise la variable var1 => recherche dans le documents
var1 = "datea" & i
var2 = "dateb" & i
'on calcule la date d'affichage
var3 = DateAdd("w", i, dateDR)

' appel à la fonction remplacer !
Remplacer "<<" & var1 & ">>", Format(var3, "dddd")
Remplacer "<<" & var2 & ">>", Format(var3, "dd mmmm yyyy")
'on incremente i
Next i