Excel - Partie de fonction qui se répète

Bonjour,
J'ai la fonction suivante :

Function avancement_dispo(ByVal date_situation As Date, ByVal date_av_max As Variant, ByVal annee_dmax As Variant, ByVal mois_dmax As Variant, ByVal jour_dmax As Variant, ByVal deb_dispo, ByVal annee_deb As Variant, ByVal mois_deb As Variant, ByVal jour_deb As Variant, ByVal fin_dispo As Variant, ByVal annee_fin As Variant, ByVal mois_fin As Variant, ByVal jour_fin As Variant, ByVal test As Integer) As Date
'Variable test : Lorsque test a la valeur 0 = soit aucune dispo soit une seule dispo
'Lorsque test a la valeur 1 = L'utilisateur veut saisir une 2eme dispo
'Cette variable permet lors de la saisie d'une 2eme dispo de mémoriser la dernière date d'avancement pour ensuite inclure la 2eme dispo
Dim annee_duree As Variant
Dim mois_duree As Variant
Dim jour_duree As Variant
Dim annee_av As Variant
Dim mois_av As Variant
Dim jour_av As Variant
Dim an_dispo As Variant
Dim ms_dispo As Variant
Dim jr_dispo As Variant
Dim date_av As Date
Dim date_av_2 As Date
Dim i As Integer

If test > 0 And deb_dispo = "" Then
avancement_dispo = date_dispo
Exit Function
End If

If test > 0 And fin_dispo = "" Then
avancement_dispo = date_dispo
Exit Function
End If

'Si pas de dispo alors date avancement = date à la durée max
If deb_dispo = "" And fin_dispo = "" And test = 0 Then
avancement_dispo = date_av_max
Exit Function
End If

'Affichage message si date incohérente
If test = 0 And deb_dispo > date_av_max Then
MsgBox ("Le début de dispo doit être antérieure à la date d'avancement à la durée max !")
Exit Function
End If

If test = 0 And deb_dispo < date_situation Then
MsgBox ("Le début de dispo doit être postérieure à la date de dernière situation !")
Exit Function
End If

'-----------------------------------Calcul de la duree d'une dispo----------------------------------
'Calcul des jours
If jour_fin < jour_deb Then
mois_fin = mois_fin - 1
jour_fin = jour_fin + 30
End If
jour_duree = jour_fin - jour_deb

'Calcul des mois
If mois_fin < mois_deb Then
annee_fin = annee_fin - 1
mois_fin = mois_fin + 12
End If
mois_duree = mois_fin - mois_deb

annee_duree = annee_fin - annee_deb

'-------------------------Calcul date d'avancement si plus d'une dispo--------------------------------
'Ajout de la durée de dispo à la 1ere date de dispo
If test > 0 Then

jr_dispo = jour_dispo + jour_duree
For i = 1 To 2
If jr_dispo > 29 Then
jr_dispo = jr_dispo - 30
ms_dispo = ms_dispo + 1
End If
Next


ms_dispo = mois_dispo + mois_duree

For i = 1 To 2
If mois_dispo > 11 Then
ms_dispo = ms_dispo - 12
an_dispo = an_dispo + 1
End If
Next

an_dispo = annee_dispo + annee_duree

date_av_2 = DateSerial(an_dispo, ms_dispo, jr_dispo)

jour_dispo = jr_dispo
mois_dispo = ms_dispo
annee_dispo = an_dispo
date_dispo = date_av_2
avancement_dispo = date_av_2

Exit Function

End If
If test = 0 Then
'-------------------Calcul date d'avancement si une seule dispo------------------------------
'Ajout durée de dispo à la date av duree max

jour_av = jour_dmax + jour_duree
For i = 1 To 2
If jour_av > 29 Then
jour_av = jour_av - 30
mois_av = mois_av + 1
End If
Next

mois_av = mois_av + mois_dmax + mois_duree
For i = 1 To 2
If mois_av > 11 Then
mois_av = mois_av - 12
annee_av = annee_av + 1
End If

Next

annee_av = annee_av + annee_dmax + annee_duree

annee_dispo = annee_av
mois_dispo = mois_av
jour_dispo = jour_av

'Conversion en format date
date_av = DateSerial(annee_av, mois_av, jour_av)
date_dispo = date_av
avancement_dispo = date_av
End If

End Function


Explication : Calcul date d'avancement incluant 1 ou plusieurs dispo.

Tout fonctionnaire avance à une durée max, certain avanceront 2ans et 6 mois par exemple.

Mais, si le fonctionnaire prend une dispo, sa date d'avancement est reporté à autant de temps que dure sa dispo. Exmple : Admettons, il avance à la duree max le 01/01/2000. Il prend une dispo du 01/10/1999 au 01/11/1999 (=durée de 1mois). Finalement, il avancera le 01/02/2000. //Voir calcul date d'avancement si une seule dispo//

un bouton permet d'archiver la dispo en cours et incrémente la valeur test.

S'il prend une 2eme dispo, du 01/11/1999 au 01/12/1999, il avancera le 01/03/2000. // Voir caclul date d'avancement si plus d'une dispo// Le souci, est que lorsque je souhaite saisir plus d'une dispo, la partie "calcul date d'avancement si plus d'une dispo" boucle 2 fois.

Qui peut m'aider ???!! Je vais mettre une copie du fichier dans quelques minutes