Script vba ne donne pas le resultat souhaité

Bonjour,

J'ai cette fonction qui ne donne pas le resultat souhaité. Je souhaite simplement lorsque j'execute cette fonction de faire les calculs jusqu'a la ligne vide non incluse. Je ne fais aucun calcul dans la ligne ou ma cellule Cells(X,3) = "TOTO"; je passe simplement a la ligne suivante.

Merci pour votre aide,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub CalculateButton()
Dim Counter As Integer
Counter = 9
 
    Do
            If Cells(Counter, 3) = "TOTO" Then
                GoTo ExitIf
 
            Else
                GoTo LoopAllSheet
 
            End If
 
    Loop Until Cells(Counter, 2) = ""
 
 
ExitIf:
    Counter = Counter + 1
 
LoopAllSheet:
        Cells(ActiveCell.Row, ActiveCell.Column + 7).Value = Cells(ActiveCell.Row, ActiveCell.Column + 6).Value - Cells(ActiveCell.Row - 1, ActiveCell.Column + 6).Value
    Cells(ActiveCell.Row, ActiveCell.Column + 7).HorizontalAlignment = xlCenter
 
    Counter = Counter + 1
 
 
End Sub