Erreur 424 comment fait on pour la résoudre

visual basic
en fait g fé ca:
For n = 1 To r.Rows.Count
If Cells(1, 2) = Cells(2, 1) Then Cells(2, 2) = X
If Cells(1, 3) = Cells(3, 1) Then Cells(2, 2) = X
If Cells(1, 4) = Cells(4, 1) Then Cells(2, 2) = X
If Cells(1, 5) = Cells(5, 1) Then Cells(2, 2) = X
If Cells(1, 6) = Cells(6, 1) Then Cells(2, 2) = X
If Cells(1, 7) = Cells(7, 1) Then Cells(2, 2) = X
If Cells(1, 8) = Cells(8, 1) Then Cells(2, 2) = X




ActiveCell.FormulaR1C1 = "lundi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "mardi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "mercredi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "jeudi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "vendredi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "samedi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "dimanche"
ActiveCell.Offset(1, -7).Range("A1").Select
ActiveCell.FormulaR1C1 = "lundi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "mardi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "mercredi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "jeudi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "vendredi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "samedi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "dimanche"
ActiveCell.Offset(-7, 0).Range("A1:H8").Select



Next

End Sub

est ce kil y a un pb???
je commence à apprendre le vb c pr ca.
merci