Probleme de Scripte, erreur 1004

Bonjour,

Voila un bete scripte pour faire du copier coller en verifiant ou on veut coller mais il ne marche pas...

Je n'arrive pas a savoir pourquoi ... HELP !!!!


Sub addanewweek()
'
' addanewweek Macro
' Macro recorded 16/08/2004 by Benoit Evrard
'

'

Dim BOX
Dim SECONDBOX
Dim THIRDBOX
Dim COUNTER

THIRDBOX = 0


For COUNTER = 11 To 6000
BOX = Cells(COUNTER, 1)
SECONDBOX = IsEmpty(BOX)

If SECONDBOX = True Then
BOX = Cells(COUNTER + 1, 1)
SECONDBOX = IsEmpty(BOX)
If SECONDBOX = True Then
THIRDBOX = COUNTER + 1
COUNTER = 6000
Else
End If
Else
End If
Cells(100, 1).Value = THIRDBOX


Rows("11:97").Select
Selection.Copy
Sheets("Sheet1").Cells(THIRDBOX, 1).Select
Selection.Insert Shift:=xlDown
Box = Cells(THIRDBOX, 2)
Box.Select
ActiveCell.FormulaR1C1 = "=R[-13]C+1"
Next

End Sub


Merci d'avance

Benoit