Bonjour à tous,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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