Approvisionnement automatique VBA

Bonjour,

J'esayes actuellement de créer une macro VBA pour gérer mes besoins en appro automatiquement.
Voici mon code :

Sub ordre_planifie()

delai = ActiveSheet.Cells(2, 4).Value
i = 7
While ActiveSheet.Cells(i, 1).Value <> Empty
If ActiveSheet.Cells(i, 4).Value < 0 Then
Range("i-1:1").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Cells(i - 1, 1).Value = ActiveSheet.Cells(i, 1).Value - delai
ActiveSheet.Cells(i - 1, 2).Value = "ordre planifie"
ActiveSheet.Cells(i - 1, 3).Value = ActiveSheet.Cells(2, 2).Value
ActiveSheet.Cells(i - 1, 4).Value = ActiveSheet.Cells(i - 2, 4).Value + ActiveSheet.Cells(i - 1, 3).Value
End If
i = i + 1
Wend
End Sub

mais lors de son execution je rencontre le problème suivant
erreur d'execution 1004 :erreur défini par l'apllication ou par l'objet

Si l'un d'entre vous a une idée je suis preneur :)

Merci d'avance