Erreur '1004': Erreur définie par l'application ou par l'objet

Bonjour,

je suis débutante en excel/vba et au moment d'exécuter ce code on m'affiche " Erreur '1004': Erreur définie par l'application ou par l'objet''
quand je fais déboggage c'est au niveau de la ligne " If Cells(j, 2) = "Commande FT" Then "
Quelqu'un pourrait m'aider ?
Merci infiniment


voici le code:

Private Sub Worksheet_Activate()
' Mise a jour
q = ActiveSheet.UsedRange.Rows.Count
For k = 7 To q
If Cells(k, 2) = "Commande FT" Then
Range(Cells(k, 5), Cells(k, 6)).ClearContents
Range(Cells(k, 7), Cells(k, 10)).ClearContents
Range(Cells(k, 11), Cells(k, 13)).ClearContents
End If
Next
' Remplissage automatique
li = Sheets("GCBLO").Range("B" & Rows.Count).End(xlUp).Row
j = 7
For i = 7 To li
    If Cells(j, 2) = "Commande FT" Then
    Cells(j, 6) = Sheets("GCBLO").Cells(i, 2)
    Cells(j, 7) = Sheets("GCBLO").Cells(i, 6)
    Cells(j, 5) = Sheets("GCBLO").Cells(i, 3) & " , " & Sheets("GCBLO").Cells(i, 4)
    Cells(j, 10) = Sheets("GCBLO").Cells(i, 7)
    Cells(j, 11) = Sheets("GCBLO").Cells(i, 8)
    Cells(j, 13) = Sheets("GCBLO").Cells(i, 10)
    Cells(j, 9) = Sheets("GCBLO").Cells(i, 9)
j = j + 1
Else: j = j + 1
i = i - 1
End If
Next
End Sub