Valeurs soustraites par VBA

Sub Test()
Dim Cellule As Range, Ligne As Integer
' Déclare Cellule comme cellule, Ligne comme entier
With Sheets("bunkers").Cells
' Avec les cellules de la feuille bunkers - le . ensuite fera appel à cela
For Each Cellule In Sheets("BON").Range("B7:B29")
' Pour chaque cellule de la colonne B du BON qui nous intéresse
If Cellule <> "" Then
' Si le contenu n'est pas vide
Ligne = .Find(Cellule, LookAt:=xlWhole).Row
' Le N° de ligne est égal à la recherche du contenu de la cellule dans bunkers
.Cells(Ligne, Right(Cellule.Offset(0, -1), 1) + 1) = _
    .Cells(Ligne, Right(Cellule.Offset(0, -1), 1) + 1) - Cellule.Offset(0, 1)
' La cellule de bunkers qui est sur la ligne trouvée, la droite de A1 donne 1 et A2 donne 2, donc + 1 donne la bonne colonne
' est = à cette même cellule, moins la quantité qui se trouve à droite de Cellule
End If
' Fin du test
Next
' Cellule suivante
End With
' Fin de la référence aux cellules de bunkers
End Sub