Simplifier code VBA

Bonjour à tous,

Comment pourrais je simplifier le code ci-dessous généré via l'enregistreur de macro.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro()   Range("B2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "Doublon" ActiveSheet.Paste   End Sub

---

Merci
David

Bonjour,

quelque chose comme ça ?

Code:

---

1 2 3 4 5 6

Sub Macro() Dim Sh As Worksheet: Set Sh = Sheets.Add(After:=Sheets(Sheets.Count)): Sh.Name = "Doublon" With Sheets("LaFeuilleSource") .Range(.Cells(2, 2), .Cells(2, 2).End(xlDown)).Copy Sh.Cells(1, 1) End With End Sub

---

Nickel, merci à toi

David