Boujour encore moi lol

je suis sur la réalisation d'une macro et j'ai une erreur d'execution : objet requit
Je débute dans le VBA et j'oré besoin de vous pour m'aider a coriger ce probleme.
Voici le code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
 
Dim Nfeuille As Integer
 
 
Sheets.Add after:=Worksheets(Worksheets.Count)
Nfeuille = activesheets.Name
 
    For i = 1 To Sheets.Count - 1
 
        Sheets(i).Columns("D:D").Select.Copy Destination:=Sheets(Nfeuille).Range("E1")
    Next i
 
 
End Sub
Merci d'avance