Sheets("CARBURANTS").ActivateFor i = 1 To Sheets("CARBURANTS").Range("b" & Rows.Count).End(xlUp).Row
If Sheets("CARBURANTS").Cells(i, 2).Value = Me.TextBox105 Then
If ListBox2.List(i, 1) = "gasoil" Then
Sheets("CARBURANTS").Cells(i, 6).Value = Sheets("CARBURANTS").Cells(i - 1, 6).Value + Sheets("CARBURANTS").Cells(i, 4).Value - Sheets("CARBURANTS").Cells(i, 5).Value
End If
i = i - 1
End If
Next i