ActiveWindow.SmallScroll Down:=-6
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Application.WindowState = xlMinimized
Sub Macro1()
Dim dl As Integer 'déclare la variable dl (dernière Ligne)
Dim x As Integer 'décalre la variable i (Incrément)
With Sheets("StockCompare") 'prend en compte la variable "StockCompare"
dl = .Cells(Application.Rows.Count, 7).End(xlUp).Row 'définit la dernière ligne de la colonne 13 (G)
For i = dl To 14 Step -1 'boucle inversée des cellules de la colonne G des lignes dl à 14
Debug.Print .Cells(dl, 7).Value
If .Cells(i, 7) > 0 Then .Rows(i).Delete 'si la cellule est positive, supprime la ligne
Next i 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "StockCompare"
End Sub