Souhaiter anniversaire (Excel 2003)

Sub anniv()
Dim Ligne As Long, tablo(10) As Variant, age(10) As Integer, tri(10) As Integer
' derniere ligne remplie 2eme colonne
Ligne = Sheets("Liste").Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
' n° de la semaine actuelle
cettesemaine = Val(Format(Date, "ww", vbMonday, vbFirstFourDays))
'Boucle sur les lignes de la base
For n = 1 To Ligne
'n° de la semaine de la date de naissance
semaine = Val(Format(Range("C" & n), "ww", vbMonday, vbFirstFourDays))
' si ce n° de semaine est celui de la semaine actuelle augmenté de 1
    If semaine = (cettesemaine + 1) Then
    'variable x incrémentée
    x = x + 1
    'variable tablo prend valeur n(donc n° de la ligne)
    tablo(x) = n
    'variable age prend la valeur de la différence années entre aujourd'hui et date de naissance
    age(x) = Year(Date) - Year(Range("C" & n))
    ' classement dans tablo par ordre décroissant
    ' boucle de x à 2 en revenant en arrière
        For t = x To 2 Step -1
        ' si variable age(t) est plus grande que sa précedente on inverse les valeurs des 2 variables de même que celles des 2 variables tablo
            If age(t) > age(t - 1) Then
            f = age(t - 1)
            g = tablo(t - 1)
            age(t - 1) = age(t)
            age(t) = f
            tablo(t - 1) = tablo(t)
            tablo(t) = g
            End If
        Next t
    End If
Next n
' boucle sur toutes les valeurs du tablo
For d = 1 To x
' on rajoute au message à afficher après saut de ligne ,les nom, prénom, date de naissance et âge
mes = mes & Chr(10) & Range("A" & tablo(d)) & " " & Range("B" & tablo(d)) & " né(e) le  " & Range("C" & tablo(d)) & "  :  " & age(d) & " ans"
Next d
' si message est vide alors le message sera Aucun anniversaire sinon ce sera BON anniversaire à suivi du message
If mes = "" Then mes = "Aucun anniversaire" Else mes = "BON ANNIVERSAIRE à : " & Chr(10) & mes
'affichage message
MsgBox mes
End Sub