Discussion :

[david5]

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

[joe.levrai]

Bonjour,

quelque chose comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[david5]

Nickel, merci à toi

David