Re-Bonjour

Voilà, j'ai un code qui fonctionne, mais qui est super long, pour apprendre et pour info, y' a t-il un moyen de le raccourcir ??? Merci à vous
sur l'exemple ci-dessous il y a 4 Textbox, mais mon code en comporte 25.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Worksheets(Label2.Caption).Activate
    If TextBox2 = "" Then
    Else
    Range("C10").Select
    ActiveCell.Value = ActiveCell.Value - TextBox2.Value
    End If
        Worksheets(Label3.Caption).Activate
        If TextBox3 = "" Then
        Else
        Range("C10").Select
        ActiveCell.Value = ActiveCell.Value - TextBox3.Value
        End If
            Worksheets(Label4.Caption).Activate
            If TextBox4 = "" Then
            Else
            Range("C10").Select
            ActiveCell.Value = ActiveCell.Value - TextBox4.Value
            End If
                Worksheets(Label5.Caption).Activate
                If TextBox5 = "" Then
                Else
                Range("C10").Select
                ActiveCell.Value = ActiveCell.Value - TextBox5.Value
                End If