XL 2016 Total semaine sur dernière semaine du mois en VBA

[Davkrys]

Bonjour,

Voilà j'ai fichier qui me permets de réaliser des bordereaux de pointage chaques mois pour l'ensemble de mon effectif.
Ce fichier est constitué en 3 onglets
Versalis/saisie/ données
A partir de l'onglet saisie je valide mes bordereaux versalis.
Bref, mon souci j'ai que j'arrive pas à avoir sur mes bordereaux dans l'onglet versalis le total de la dernière semaine même si elle est incomplète.
J'ai bien toutes les semaines et le total général mais pas la dernière semaine.
J'espère avoir été clair, ce n'est jamais facile d'expliquer par écrit.

Merci pour votre aide

Ci joint le fichier

 

[fanch55]

Salut,
Dans la procédure CommandButton1_Click() 'Valider,
For x = 3 To dl + 1 , sinon la fin de semaine ne sera pas détectée