Suppression ligne avec conditions

Quand cellule(i,M)=cellule(j,M) et cellule(i,G)=cellule(j,G)
then la cellule(i,C) devient "cellule(i,C) &/& cellule(j,C) et delet la ligne j

Dim j as Integer
Dim i as Integer
Dim lastR  as Integer

lastR  = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row 
For i= lastR to 1 step -1
   j = i+1
  if(cells(i,13).value = cells(j,13).value AND cells(i,7).value = cells(j,7).value Then
   debug.print("Les conditions  sont vérifiées.....=> Traitement....")
    ' Ecriture de la nouvelle valeur de la cellule ligne i colonne 3 (c) 
     cells(i,3).value = cells(i,3).value & "/" & cells(i,9).value
    ' Suppression de la ligne j
    debug.print("suppression de la ligne :" & j)
    rows(j).delete
  Else
   debug.print("Les conditions ne sont pas vérifiées.....=> aucune action !")
  End if
Next