Erreur ponctuelle dans macro

Bonjour,

Je lance une macro qui me dédouble chaque ligne de mon fichier
le code est:

Dim i As Integer
Dim Plage As Range
Set Plage = Range("C3:C" & Range("C3").End(xlDown).Row)

For i = 8764 To 2 Step -1

If (Plage.Cells(i).Value <> 0) Then
Rows(i).Select
Application.CutCopyMode = False
Selection.Copy
Rows(i + 1).Select
Selection.Insert Shift:=xlDown
End If

Next i
Et en fait, il s'avère que la macro oublie de copier une ligne de temps en temps... environ 4 sur 8700 ...
est ce déjà arriver à l'un ou l'une d'entre vous? et comment y avez vous remédier? car pour le moment, je dois checker visuellement , et ça peut prendre du temps et la tête !!! ^^
merci d'avance ! ;)