Copie cellule sans couleur

Bonjour le forum,

j'ai essayé de modifier une macro trouvé sur le forum, mais ça bug.

feuil 2, colonne a, j'ai une liste et je voudrai récupérer la cellule sans couleur en feuil3 colonne d.

la cela trouve bien les cellule sans couleur mes copie et bug.

SVP, pouvez-vous une nouvelle fois m'aider.

merci 🙂

Sub TEST()

Sheets("Feuil2").Select
derlig = Range("A65536").End(xlUp).Row
For I = 2 To derlig
If Cells(I, 1).Interior.ColorIndex = -4142 Then Cells.Copy
Sheets("feuil3").Range("D" & Sheets("feuil3").Range("D65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Next

End Sub