Incompréhension de code

Sub recup_conges()

'debut en s50 2017
'colonne S dans l'onglet perso
'ligne 13 pour la charge

'ceu2 comme debut dans l'onglet des conges
'remplissage du nouvel onglet pour ne pas prendre en compte les TAD


Dim dispo As Integer
Dim jour As Integer
Dim semaine As Integer
Dim personne As Integer


'le nombre de personne dans la liste est de 18
For personne = 0 To 18

semaine = 0

'5 signifie que la personne était pressente pendant toute la semaine
dispo = 5



For jour = 0 To 365 * 2 + 5

        If Worksheets("Recup_absences").Range("d2").offset(personne, jour).Value <> "" And jour Mod 7 <= 4 Then
        dispo = dispo - 1
        End If
        
        If jour Mod 7 = 5 Then
        Worksheets("synthese_conges_SS_tad").Range("b2").offset(personne, semaine).Value = dispo
        semaine = semaine + 1
        dispo = 5
        End If
Next jour
Next personne
'Worksheets("Aurélien Thorez").Range("aa13").Value = 5

MsgBox ("Mise à jour des congés terminée")

End Sub