Probleme de Scripte, erreur 1004

[Benoit]

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

 

[Benoit]

Euu

Je suis desole de vous avoir embeter avec ca

Le probleme venait juste de la position de mon next

Sorry

Et merci pour ceux qui ont chercher, et encore desole


Ps Vous pouvez effacer ce message

Merci