Simplifier code VBA

Bonjour à tous,

Quel est la marche à suivre pour simplifier un code généré via l'enregistreur de macro.

Exemple code ci-dessous.

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 pour vos réponse

David

Je ne le trouve pas si mal que cela. Que veux-tu simplifier ?

Je crois que je me suis mal exprimé, mais c'est plus condenser le code (càd au lieu d'écrire la macro en 6 lignes, c'est de l'écrire en 3 lignes seulement).

Si c'est possible ?

Merci