Augmenter 1/4 2/4 3/4

j'ai reussi dans excel que si la ligne précédente à le même critère dans la colonne A ou D que ça les comptes et mette 1/le nombre d'exemplaire trouver
Maintenant j'aimerai que le premier chiffre corresponde ou 1 livre trouver le 2 au deuxième ainsi de suite.
Mon code est le suivant
Dim i As Integer
Dim nb As Byte
Dim calcul As Boolean
Dim longueur As Byte
Dim position As Byte
Dim a As String
Dim b As String

ActiveSheet.Unprotect (FGestion.Cells(16, 2))
FBaseLivre.Unprotect (FGestion.Cells(16, 2))


nb = 0
calcul = False

For i = 1 To 37 'On affiche tout les livres dans la base
FBaseLivre.ListObjects("Tableau3").Range.AutoFilter Field:=i
Next
For i = 2 To FBaseLivre.Cells(2, 1) + 1 'On parcour la base de donnée
' For i = 2 To FBaseLivre.Cells(1, 1) + 1 'On parcour la base de donnée
For j = 3 To FBaseLivre.Cells(2, 1) + 2 'On parcour la base de donnée
' For j = 3 To FBaseLivre.Cells(1, 1) + 2 'On parcour la base de donnée

If FBaseLivre.Cells(j, 3) = FBaseLivre.Cells(i, 3) And FBaseLivre.Cells(i, 2) = FBaseLivre.Cells(j, 2) Then 'Cote et titre
'On augmente le nombre de livre
longueur = Len(FBaseLivre.Cells(i, 36))
position = InStr(1, FBaseLivre.Cells(i, 36), "/") 'Recherche la position du "/"
a = Left(FBaseLivre.Cells(i, 36), position - 1)
b = Right(FBaseLivre.Cells(i, 36), longueur - position)
FBaseLivre.Cells(i, 36) = Right(Str(a), Len(Str(a)) - 1) + "/" + Right(Str(b + 1), Len(Str(b + 1)) - 1)
End If

Next
Next

merci de votre aide