Multipage - Changer la valeur d'un Label à chaque changement de page

Bonjour à tous,

Je souhaiterais avoir un changement de label qui se produisent dans toute les pages quand je change de page.
Le calcul se fait avec une TextBox et j'ai l'impression que c'est ca qui coince.

Exemple :

TextBox1= 10 LabelB1 = 100

"Changement de page"

TextBox1 = 10 LabelB1=90

Voila

Le code que j'ai réussi à faire ne marche pas mais ca peut donner des idées :

For k = 8 To Sheets("Donnees_d'entree").Range("B" & Rows.Count).End(xlUp).Row - 1
        For j = 8 To Sheets("Donnees_d'entree").Range("B" & Rows.Count).End(xlUp).Row - 1
            For i = 0 To Me.MultiPage1.Count - 1
                Me.MultiPage1.Pages(i).LabelB(k).Caption = Me.MultiPage1.Pages(i).LabelB(k).Caption - Me.MultiPage1.Pages(i).TextBox(j).Value
            Next i
        Next j
    Next k

Il comprend 3 boucles imbriqués car le calcul doit se faire sur toutes les pages avec toutes les TextBox dans chaque Label. Peut être la que ca coince.
PS : Le message d'erreur se mets sur :

 Me.MultiPage1.Pages(i).LabelB(k).Caption = Me.MultiPage1.Pages(i).LabelB(k).Caption - Me.MultiPage1.Pages(i).TextBox(j).Value

Bonjour, tu as oublié aussi le message d'erreur en lui-même.

Désolé je ne pensais pas que cela importait.

Aucune idée pour mon problème ?