VB excel, changer de ligne

For i = 1 to 56
   If Sheets(1).Range("G" & i).Value = "toto" Then
      MsgBox "Gagné !!!"
   Else
      MsgBox " Perdu !!! Try again ..."
   End If

s = Range("J6")
d = Range(Cells("7" & n)).Interior.Color
j = Range("A3")
n = 6 

s = Range("J6") 'il vaudrai mieux avoir déclaré s comme une variable objet pour qu'elle puisse etre utilisé en remplacement du range("J6")
d = Range(Cells("7" & n)).Interior.Color 'idem et cells ("7" & n) est faux puisque la syntaxe est cells(numligne,numcolonne) et ce n'est pas utile de le coupler a range
j = Range("A3")'idem que le premier commentaire
n = 6'pas utile

For n = n To 55 Step 1 'remplace n=n par n=6
If statut <> "Terminée" And d < jour Then 'statut veut dire quoi ? d ne peut pas etre inférieur a jour puisque d est égal a la couleur d'une cellule
d = RGB(255, 0, 0)
ElseIf d > jour - 7 Then 'encore une fois, d ne peut pas etre comparé a jour car on ne compare pas une couleur a une date
d = RGB(255, 255, 0)
End If
Next 

Private Sub CommandButton1_Click()

Dim n As Integer

For n = 1 To 6
If Range("J" & n).Value <> "Terminée" And Range("G" & n).Value < Range("A3").Value Then
    Range("G" & n).Interior.Color = RGB(255, 0, 0)
ElseIf d > j - 7 Then
    Range("G" & n).Interior.Color = RGB(255, 255, 0)
End If
Next

MsgBox "La colonne délai a été triée", vbInformation

End Sub